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I. INTRODUCTION TO DATABASE CONCEPTS 


Awe INTRODUCTION 


In recent years computer technology has evolved dramati- 
cally. As more and more organizations use computer, it is 
necessary to use systematic approaches for software solutions 


to their problems. 


One approach which 1s widely used in the computer world 


is database systems. 


Database systems today, play a central role in computer 


science for the facilities and data handling capabilities 


they provide. 
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Figure 1. Changing Hardware/Software Cost Ratio 
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The fact that the hardware cost is decreasing rapidly 
and software cost continues to increase as shown by Figure l, 
in a United States Air Force study [Ref. 1], leads us to con- 
Sider systems that achieve the best utilization of software 
development productivity. These considerations motivated 
system designers to build advanced database systems in order 
to decrease software cost and obtain maximum benefit. 

In our case the benefit will be the savings of manpower 
for other purposes. 
B. DATABASE SYSTEMS VS MANUAL SYSTEMS IN HELLENIC ARMED 

FORCES FORMATIONS 

Curmeenetly alilyot the information required by Formation 
Commanders are handled manually by the staff of the formation, 
resulting in time consuming operations and inaccuracies. 

Because of the continuous changes concerning personnel 
and the associated data, it is extremely difficult for the 
staff personnel to keep track of these changes. Many systems 
are very inefficient and the Commander of the Formation does 
not have accurate and timely information in order to make 
fast decisions. 

These problems could be solved by the implementation of 
a computerized personnel database system. 

A database system has several important advantages over 
manual systems, which are described below. 

First data can be shared. This reduces the time needed 


to develop new systems or to respond to various requests. In 


ie 


effect, all the necessary information can be retrieved from 
existing data much faster and with a higher degree of accuracy. 
The second advantage of a database system is the elimina- 
tion or reduction of data duplication thatewcan Bead stow... 
of data integrity in: contlveting Teperes. 
The third advantage is that the personnel involved in 
Manual personnel management could be reduced considerably, 


freeing manpower for other tasks. 


CG. = CONCEUSTONS 

In order to increase the effectiveness of Hellenic Armed 
Forces, it 1s essential that personnel management be performed 
very efficiently. However, to manually manage all Armed 
Forces personnel is a very tedious, complex and time consuming 
job. Increased personnel volume has also increased the task 
of management making the operations more and more complicated. 
Furthermore, personnel managers and decision makers will need 
reliable information faster than is currently available. It 
is almost impossible to get all the information required by 
the personnel managers in the time frame allowed with a manual 
system. 

On the other hand, an automated system could result in 
decreasing the number of personnel working in personnel man- 
agement offices, freeing some for manning in other understaffed 


positions. 


eZ 


Database systems have become important tools for retriev- 
ing timely and accurate information and is expected to provide 
its user with the required information within a specified 
time. Therefore, a standard database system should be devel- 
oped for efficient personnel management in the Hellenic Armed 


Forces Formations. 


D. GENERAL OVERVIEW OF A DATABASE SYSTEM 
We begin with the definition and some of basic terminol- 
ogy of databases and then discuss the architecture and types 
of data models. 
Pe letmbeton and Basic Terminology 
Figure 2 shows the relationship between the basic 


terms of a database, which are explained below. 
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Figure 2. Relationship Between Basic Terms of a Database 
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a. Database 
A shared collection of interrelated data designed 
to meet the varied information needs of an organization. 

b. Database Management System (DBMS) 

A software system that performs all user's requests 
(update, retrieval) for data. 
c. File 
Is a collection of records concerning entities 
of the same type. 
dad. Record 
Is a collection of data concerning one entity of 
a file. Each record has an identical format. 
e. Field 
A field is part of the record and is the smallest 
unit of named data. 
2. Architecture for a Database System 

The architecture is divided into three general levels: 
internal, conceptual, and external [Ref. 2]. Figure 3 shows 
the standard viewpoints regarding the three levels. 

In Figure 3 a single database, which may be one of 
many databases using the same DBMS, is viewed at three differ- 
ent levels. Only the physical database exists. The concep- 
tual database is an abstract representation of the physical 
database and the views are either abstractions or portions 


of the conceptual database. 
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Figure 3. Levels of Abstraction in a Database System 


3. Database Systems vs Traditional File Systems 
A database management system (DBMS) is considerably 
different from a traditional file system. 


A traditional file processing approach is shown in 


Figure 4. 
PAYROLL PAYROLL PAYROLL 
PIES PROGRAMS OUTPUT 
ACCOUNTING ACCOUNT ING ACCOUNT ING 
FTIEES : PROGRAMS OUTPUT 
INVENTORY INVENTORY INVENTORY 
GEES PROGRAMS OUTPUT 
Figure 4. Traditional File Processing Approach 


We observe that each file program system processes only 


its own file. 


Figure 5 shows a database processing approach. 
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Figure 5. Database Processing Approach 


Here the DBMS integrates the data and makes it much 
easier to get useful information from more than one file. 
Data is not monitored and manipulated by the individ- 
ual application programs, but instead by the DBMS. 
Such a Database Management System is dBASE II, which 
will be used as the DBMS in our database system. 
The disadvantages of the traditional file approach are: 
(1) Uncontrolled redundancy. 
(2) Inconsistent data. 
(3) ‘Intlexi pate 
(4) Limited data sharing. 
(5) Poor enforcement of standard. 


(6) Low programmer productivity. 
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(7) Excessive program maintenance. 
The advantages of the database processing approach are: 
(1) Minimal data redundancy. 
(2) Consistency of data. 
(3) integration of data. 


(4) Sharing of data. 


(5) Enforcement of standard. 

(6) Ease of application programs. 

(7) Uniform security, privacy and integrity constraints. 
(8) Data accessibility and responsiveness. 

(9) Data independence. 


(10) Reduced program maintenance. 
4. Models of Database Management Systems 
A MODEL is a representation of real-world objects, 
events and their association. 
A DATA MODEL is an abstract representation of the data 
about entities, events, activities and their associations. 
The purpose of data models is to represent data in under- 
Standable terms. The main data models in use today are the 
hierarchical data model (HDM), network data model (NDM) and 
the relational data model (RDM) [Ref. 4]. Since the hier- 
archical model is a special case of the network model, actually 
there are two types. A complete discussion of these models 
is beyond the scope of this thesis but a brief overview is 
ieoaeanesas san Introduction to dBASE II. 
In a hierarchical or network system, information is stored 
in a structure that looks very much like a tree (Fig. 6). 


ley 





Part | 


Figure 6. Hierarchical Data Model 


An entity 1s composed of various assemblies and each 
assembly is composed of various subassemblies which in turn 
are composed of parts. Each part is a child of the parent 
assembly or subassembly that owns it. In a hierarchical 
model no child can have more than one parent. 

In a Network model a child can have more than one 
parent as shown in Figure 7. 

It represents data as a set of record types and 


pairwise relationships between record types. 
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Figure 7. Network Data Model 


A relational data model differs from HDM and NDM 
in architecture. Information is stored in two-dimensional 
tables which are called files. 

These tables which are shown in Figure 8 have the 


following properties: 


(1) Each column contains values about the same attribute. 
(2) Each column has a distinct name. 

(J eeeftach row is distinct. 

(4) The sequence of the rows is immaterial. 


Jes 










Inventory Master File 


DESCRIPTION 


Figure 8. Relational Data Model 


The above scheme deals with a parts inventory system. 
Information in the tables is accessed by the user based on 


any desired relationship. 


E. dBASE II CONCEPTS 

dBASE II is a relational database management system. 
However, since several files are generally used in a given 
application and the relationship between information in dif- 
ferent files is not stored in the system, dBASE II is nota 


true database management system in the strictest sense of 
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the word. dBASE II is more like a file management system 
with relational features added. dBASE II does contain its 
own programming language, permitting a user to develop extremely 
powerful and complex programs that meet SRG uae applications 
like general personnel, accounting and inventory control. 
1. Features of dABASE II [Ref. 4] 
The most important features of dBASE II are: 


a. Independence of programs and data. Changes in file 
structures do not affect programs. 


b. Data can be easily updated. 
c. Sorting and indexing capabilities. 


d. Easy creation of reports by the report generator 
Bagi, Or Under program control. 


e. Very high-level built-in language which supports 
structured programming. 


2. Seiiles=lOns Of GBASE II [Ref. 3] 

a. dBASE II allows only two files to be open at 
a time. This creates difficulties which can be overpassed 
by using special techniques but the system will slow down. 

b. dBASE II allows only 32 fields per record, which 
is enough for most applications, and the maximum number of 
characters permitted per record is 1000. 

c. Each field can be up to 254 characters long. 

ad. dBASE II allows 16 programs to be run at any given 
time, reduced by the number of data files in use. For 
example, if we have 2 files in use, then 14 programs are 


allowed. 


7h 


e. dBASE II applications are slower than com- 


piled programe. 
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TT. ANALYSIS PHASE 


In this chapter the analysis phase for our personnel 
database system is discussed. This phase includes the defi- 
nition of the system objectives, the definition of the out- 
put information needed to meet these objectives, the 
femme lon of OQUEpUt forms, and definition of input infor- 


mation needed to obtain the desired output. 


mon otol EM OBJECTIVES 

As we stated in the previous chapter personnel management 
in Hellenic Armed Forces Formations is handled manually. 

This results in time consuming operations, inefficiency, and 
inaccuracy, which in turn results in a need for additional 
personnel, leaving other serious positions unmanned. In 
addition, decision making may be late which could westle An 
disorder as far as personnel management is concerned. 

From the above discussion it is evident that a computer- 
ized system for handling personnel is needed. 

With such a system it will be possible to have any infor- 
mation concerning personnel updated at any time, with less 
effort and maximum accuracy. This will result in better 
decision making, faster operations and a savings of personnel 
for other purposes. 

More specifically we will consider the following objectives 


for the system [Ref. 7]. 
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i) 


(2) 
(3) 
Ue) 
5} 
(6) 
(7) 
(8) 
(9) 
(10) 


(ie) 


Application development must be easier, cheaper, 
faster and more flexible. 


The data may have multiple uses. 
Cllaricy. 

Ease of use. 

Flexible usage. 

Fase of change. 

Low cost. 

PerrLoOrmance- 

Privacy. 

Availability. 


Reliability. 


B. OUTPUT INGeRMaAT rer 


Our database system can be applied to all the personnel 


of a formation but for the purpose of this thesis we will 


include only the officers. 


To meet the above objectives the following output infor- 


mation is needed: 


oly) 


(2) 


ey) 
(4) 
(3) 
(6) 
(7) 


List of officers in alphabetical order including 
serial number, rank, unit, and report date. 


List of officers ordered by rank including service 
entry date, unit and duty. 


List of Unlts With Eheir opeicers. 

List of officers wien nonmilitary studies. 
List of officers who speak foreign languages. 
List of officers including marital status. 


List of officers with Service timeomwmn. Giere meetin i tf 
and total service time- 
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(8) List of officers with their addresses and phone 
numbers. 


The above lists will be issued regularly every month, 


but they will also be available at any time. 


con INEPUL INEORMATION 

In order to keep track of all the officers belonging to 
a Formation we must consider the following: 

Each officer has a serial number, rank, duty, and he 
belongs to a unit. We need to know his total service time, 
and the service time in current unit, as well as his marital 
status and where he lives, in order to respond to queries 
in the case of emergencies. 

Fach unit has several officers and is identified by a 
code number which is distinct for Army and Navy units. 

For security purposes the personnel data contained 
Veretee iS Enesis 15 purely artificial. 

In addition, we need to know, the education of each 
officer, including non-military studies and foreign language 
knowledge. For the purpose of this thesis, we assume that 
each officer speaks at most one foreign language besides 
his mother tongue. 

A detailed description and the input information included 
in the files, which will be created to support the above | 


needs, are provided in the design phase. 
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IIIf. DESIGN PHASE 


In this phase the functions of the system are defined, 
the files of the database are designed and a collection of 


programs is defined, to support each function. 


A. SYSTEM FUNCTIONS 
The system is separated into three functional entities 
as follows: 
1. Update Operations 
This function allows the user to enter, delete and 
modify records in all the supporting files. These operations 
are performed daily. 
2. KepomenGenemapeeris 
This function is for retrieving all the necessary 
information from our database on a monthly basis, or upon 
beguecse: 
3. Miscellaneous 
This function will include the following: 
a. When a user enters the system to do a specific 
job a record is automatically created containing the name 
of who makes the change, the date of the change, and the 
kind of the job. This file can be printed and dateeed as 
necessary to monitor changes. 
b. When an officer is to be deleted from the MASTER 


file, before the deletion operation is performed, some data 
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concerning this officer will be transferred to a statistical 
file including the serial number, the name, the unit, the 
rank, the report date in the unit, and the date of deletion. 
This file will be available yearly or upon request. 

c. A screen display or printer output for fast 
retrieval of the data concerning an officer. 

The functional blocks of the system are shown in 


Figure 9. 










‘we port 
qenerators 





Update | | 
1 UL 
operations mai ceca llaneous 


Figure 9. Functional Blocks of the System 


Boer cue DESIGN 
To support the above functions the following files with 
the corresponding structures were created. The names of the 
files and fields are the ones that are used in our programs. 
1. Master File 
It is the main file for our system containing the 


necessary information for each officer. 


oe 


Ze 


Structiire for £116: 


FIELD 
O1 
02 
03 
04 
OS 
06 
07 
08 
09 
10 
ist 
eZ 
iS 
14 


Primary key: 


Units File 


NAME 
SERNO 
NAME 
RANK 
UNIT 
SERENTRY 
REPTDATE 
DULY 
EDUCAT 
DEGREE 
FORLANG 
MARSTAT 
CHILDREN 
ADDRESS 
PHONE 


SERNO 


Structure for file: 


FIELD 
01 
02 
03 


Primary key: 


NAME 





CODE 


LEGS 


LOCATION 


CODE 





MASTER 
TYPE WIDTH 
€ 4 
(es 16 
Cc Z 
G 4 
N 6 
N 6 
& 2 
C 2 
eo il 
C Zz 
C it 
(e: i 
: 20 
C 7 
UNEES 
TYPE WIDTH 
C 4 
‘S 12 
eC sme) 
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Sy. Ranks File 


Struerure for file: RANKS 


FIELD NAME TYPE 
O01 CODE C 
02 ARMYNAME C 
03 NAVYNAME c 


Primary key: CODE 


4. Duties File 


Simuecure £Lorwirle: DUTIES 


el yb, NAME Jiggsle 
an CODE S 
02 NAME Ss 


Primary key: CODE 


Duorlangs File 


Structure for file: FORLANGS 


Para NAME LES OEMe: 
O01 CODE S: 
O02 NAME S 


Primary key: CODE 


Seamoeciences File 


Stermerure for file: SCIENCES 
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WIDTH 


WIDTH 


20 


WIDTH 


12 


AG ab) NAME Jig sao WIDTH 
O01 CODE c 2 
Or NAME C ES 


Primary key: CODE 


7. Monitor File 


It is a file that keeps track of who does what and 








when. 
Structure for file: MONITOR 
FIELD NAME TYPE WIDTH 
01 DATE C 8 
02 NAME C 16 
03 JOB C EZ 
04 IES eloplead & 2: Le 
05 NUMREC N 3 


S$. Statistic Exile 
It is the file for statistical information for 
each deleted officer. 


Structure for file: STAT ESTEC 








FIELD NAME TYPE WIDTH 
O01 SERNO € 4 
02 NAME C 16 
03 RANK c 2 
04 UNIT @ 4 
05 REPTDATE € 8 
06 DELDATE € 8 
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wee Lenpor hile 


Strueteure ter tile: TEMPOR 


FIELD NAME TYPE WIDTH 
O01 PASSWORD C 
02 SELECT C 
03 COUNTER C 


C. EXPLANATION OF FIELDS 


The explanation of the fields, where not obvious, 


given below: 


1. Master File 


a. SERNO: The serial number of the officer. 


Ss 


b. SERENTRY: The date he entered the military 


academy. 


c. REPTDATE: The date he was positioned in the 


Cumerent, Unle. 


d. EDUCAT: His education besides the military 


studies. 
e. FORLANG: Foreign languages he speaks. 
f. MARSTAT: His marital status. 


Zeon tOroE1Le 


a. FLE: REPT: The tilestheewuscer works with, 


kind of report he prints. 
Seeotatisctic File 


a. SERNO, REPTDATE: The same as above. 


or the 


DeePEGLPATE: The date of deletion from the unit. 


on 


D. DATA FLOW DIAGRAM 

The update operations are performed daily to update 
all the files of the system. These operations include 
insertion and deletion of records, as well as modifications 
in one or more fields. The output of the update operations 
are the same files updated from the transactions of the day. 
These files are then used as input by the report generator 


function, to obtain the various reports. 


DATA BASE 


UPOATE 
OPE PATTIONS 







STATISTIC 
Ps WE 
IAGHMITG R 
it oY 


UP OATES 


DATA BASE 









REPSRT 
CaN ERATORS 


Figure 10. Data Flow Diagram for the Personnel 
Database System 


Be 


During the update operations the STATISTIC file is 
created automatically. 

The MONITOR file is created from the update operations, 
report generators, and miscellaneous operations. 

The STATISTIC and MONITOR files are not seen by the 
ise, sO Supporting the information hiding principle. 


The data flow diagram of the system is shown in Figure 10. 


aerpoRaT 4 
on aT Ya 


INSERT Z | 
t 


moprey &¢ | 
ly SrceETS FL | 


ORIN TSTAT 





OELSTAT 













INSERT 6 


SCiswees 
Free 


mOormy 6 


Figure 1l. Program Map for the Personnel Database 
system 
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E. SUPPORTING PROGRAMS 


The functional blocks we have already defined are 


selected by the user from the main menu of the system. The 


control is then transferred to the corresponding submenu 


(one for each Ertinculonml 


job is selected from an option list. 


and programs form a hierarchical relationship. 


of this relationship is the program map. 


From the submenus the appropriate 


The main menu, submenus, 


The diagram 


The program map 


for the personnel database system is shown in Figure 1l. 


All the update operations, 


reports and printing, as well 


as deletion of MONITOR and STATISTIC Elles are selected trom 


SUBMENU1, 


SUBMENU2, 


and SUBMENU3 respectively. 


F. CODE SYSTEM FOR THE PERSONNEL DATABASE 


ny 


CODE 
O1 
02 
03 
04 
05 
06 
07 
08 
09 
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Codes for Ranks 


ARMY 

GENERAL (GEN) 

LT GENERAL (LTG) 
MAJOR GENERAL (MG) 
BRIG GENERAL (BG) 
COLONEL (COL) 

LT COLONEL WOELe) 

MAJOR (MAJ) 

CAPTAIN (CPT) 

BPLRST LLIEVUTENANI eae 


SECOND LIEUTENANT (2LT) 
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NAVY 

ADMIRAL (ADM) 

VICE ADMIRAL (VADM) 
REAR ADMIRAL (RADM) 
COMMODORE (COMD) 
CAPTAIN (CAPT) 
COMMANDER (CDR) 

LT COMMANDER (LCDR) 
LIEUTENANT (LT) 

FIRST LIEUTENANT (1LT) 


ENSIGN (ENS) 





2. 


CODE 
1000 
igor 
OZ 
EVOS 
1104 
ILL Gis: 
1206 
1207 
1308 
1409 
1510 
Ved i 
2000 
OAM OTA 
2202 
2103 
2104 
2105 
2206 


2207 


Co@es for Units 


AVAL Ey > 


st Ene bv, 


lstu.Int Bn 


2nd Inf Bn 


See, Iig\se leva 


4th Inf Bn 


Stn. nt Bm 
Ist Arty Bn 
2nd Arty Bn 
Armour Bn 
Engineers Bn 
Signals .5n 
Sup/Trans Bn 
Navy Forces 
DD Squadron 
LST Squadron 
DD Miaoulis 
DD Kanaris 
DD Themis 
LST Argo 


LST Rhodes 


The meaning of the four digits representing the 


codes of the units is as follows: 
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TS ee onge 
l: ARMY 


ILS NAVY 


ZND wears 
It distinguishes between the various kinds of units 

as follows: 

ARMY 

0: HEADQUARTERS 

3 INFANTRY 

Ze ARTIEEERY 

3: ARMOUR 

4: ENGINEERS 

a SIGNAL 


6: SUPPLY-TRANSPORTATION 





Ov COMMAND 
i: DD SQUADRON 
Ze LST SQUADRON 


The 3rd and 4th digit specify each unit. 





3. Codes for Duties 
CODE NAME 
Ol COMMANDER 
02 DTY COMMANDER 
03 CHIEF OF STAFF 
04 lst OFFICE MANAGER 
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a 


05 


06 


07 


08 


09 


10 


Io 


12 


i 


14 


i 


16 


Codes for Sciences 


CODE 
Ox 
02 
03 
04 
OS 
06 
Oy 
08 
09 
1,00. 
Vall 


IL 


2nd OFFICE MANAGER 
3rd OFFICE MANAGER 
4th OFFICE MANAGER 
COMPANY COMMANDER 
BATTERY COMMANDER 
COMMANDING OFFICER 
EAPGumivyE OFFICER 
ASW OFFICER 
NAVIGATION OFFICER 
COMMUNICATION OFFICER 
Cl G2Or ECE R 


ADJUTANT 


NAME 
MATHEMATICS 
PHYSICS 
CHEMISTRY 
AERONAUTICS 
EL/ENGINEERING 
MECH/ ENGINEERING 
ECONOMICS 
OPER/ RESEARCH 
INFO/SYSTEMS 
COMP SYSTEMS 
COMP SCIENCE 


MANAGEMENT 


or] 


Ox 


13 WEAPONS 


14 OCEANOGRAPHY 

Ibs Silt PRBUTEDIENG 

16 METEOROLOGY 

7, MEDICINE 

18 LEGAL SCIENCES 
NS) ARCHITECTURE 

a0 CIV ENGINEERING 


Codes for Education Degree 


CODE NAME 
B BACHELOR 
M MASTER 
P Ph.D 


Codes tor Forevemmuanguages 


CODE NAME 
Ol ENGLISH 
02 GERMAN 
03 ITALIAN 
04 FRENCH 
05 SPANISH 
06 TURKESH 
07 ARABIC 
08 JAPANESE 
09 CHINESE 
10 PORTUGUESE 
ee RUSSIAN 
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iz BULGARIAN 


i KOREAN 
14 DANISH 
ES SWEDISH 
16 DUTCH 


Codes for Marital Status 





CODE NAME 
M MARRIED 
U UNMARRIED 
D DIVORCED 
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IV. IMPLEMENTATION PHASE 


A. MAIN MENU AND SUBMENUS OF THE SYSTEM 
1. Mainmenu 

This program controls the whole operation of the 
system, and is called from another program called BEGIN, 
which is the only program the user calls by name. The pro- 
gram BEGIN also sets drive B to be the default drive. After 
initializing basic dBASE II functions the program MAINMENU 
calls another program called PASSWORD which is for aborting 
unauthorized users, and then it proceeds by displaying the 
front page of the system. Then it displays on the screen 
the main menu of the system, and pauses waiting for the user 
to make his choice which is stored in the variable 'choice'. 
Then a CASE statement permits the program to branch to the 
corresponding SUBMENU, or exit either to the operating sys- 
tem, or to dBASE II. If the user selects a wrong choice, 
then the program prints an error message, rings the bell, 
and redisplays the screen. This is performed by a WHILE 
loop using the boolean value T. 

2. Password 

This program is called by the MAINMENU once at the 
beginning. Each user has a password to enter the system. 
If the password is the right one, the user is allowed to 


continue, otherwise the program gives one more change. If 
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the password is wrong again, the program automatically 
exits to dBASE II, displaying the appropriate message. 

During the execution of this program, we have to 
store somewhere the password to be used by the MONITR pro- 
gram, for monitoring the changes. This is done by using a 
file called TEMPOR with three fields, password, select, and 
eounter. This file contains only one record, which is*modi- 
fied properly during execution of the programs PASSWORD, 
and SUBMENUS. The MONITR program is called from the pro- 
grams f£NSERT, DELETE, MODIFY, REPORTS, and MIS@ELLANEOUS. 

3. Submenus 

All three SUBMENUS operate with the same logic as 
the MAINMENU. The screen displays guide the user in what to 
do in each case. These programs also store in the second 
field of the file TEMPOR, the selection made by the user. 

The listings of the programs are given in the next 


pages. 
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OKO OK OK AGOK-K «~PROGRAM MAINMENU KKK KOK 


* This program controls the whole operation of the system 


* Initialize basic functions 


SET TALK OFF 

SELECT PRIMARY 
SET FORMAT TO SCREEN 
SET PRINT OFF 


SET CONSOLE 
DO password 
DO frontpag 
DO setdate 
DO WHILE T 
ERASE 
Lea 
213 
Sigeoless 
4,13 
5s 
G3 
isl 
8,13 
Ses 
iO: 13 
ie an i 
12773 
135 43 
14,13 
5 1s 
162k 3 


DOO OBDOODOBD OOD ODOOO®DO OO ® 


ON 

e 

SAY DATE( ) 

SAY "KAKO OKO ICICI IOI IO OK CK CII OK IK KK aK KKK aK aK Kok * 
SAY OKA OKO IOI ICI IOI ICICI OI” OK OK KK KK KK OK KK ' 
SAY “kx kG 
SAY "x MAIN MEN U KY 
SAY “Xk What do you want to do? KK" 
SAY KOKORO OKO OKO OOO KOK IO ICICI OIC IOI OI OK IK OK OK KK aK aK aK KK ok " 
SAY "xx KK" 
SAY "xk O = EXIT TO OPERATING SYSTEM kK" 
SAY "xX (When you are finished) *K" 
DAY "*x* 1 = UPDATE OPERATIONS 5 ae 
SAY “*x (Insert,delete, modify records) *x" 
SAY "kk 2 = REPORT GENERATORS ye. 
SAY "KX (Reports available) KK" 
SAY "x 3 = MISCELLANEOUS. KK | 
SAY "XX (Files statistics) KK" 
SAY "XxX 4 = EXIT TO dBASE kK" 
SAY “*x (For programmers only) KK" 
SAY “OKOCKOICICOKOOKOICIOK OKO OK IOI OIOK OKO IOKOKOK OK KK KKK OK KK KK OK KK 
SAY KOKORO OIC IOI ICICI IOI IOI OOK ICICI ICICI OOK KK KK KKK 
SAY " Enter the corresponding number : 


TO choice 
choice 


* Accept choice and branch to corresponding submenu 


DO CASE 
CASE choice = "OQ" 
QUIT 
CASE choice = "1" 


DO submenul 
CASE choice = "2" 
DO submenu2 
CASE choice = "3" 
DO submenu3 
CASE choice = "4" 

CANCEL | 


OTHERWISE 
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* Print an error message and give an other chance 


ERASE 
@ 10,17 SAY choice+" IS AN ILLEGAL CHOICE - TRY AGAIN" 
SET TALK OFF 
TCHR) 
STORE 1 TO del 
DO WHILE del < 40 
STORE del+1 TO del 
ENDDO WHILE 
ENDCASE 
ENDDO WHILE T 
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KKKKKKKK PROGRAM PASSWORD ****K*KX 

*K 

* This program is for aborting unauthorized users 
*K 


ERASE 
@ 10,22 SAY "*x*kxkxkk ENTER PASSWORD **k*xx" 
STORE " “" TO pasword 


STORE O TO count 
STORE T TO Okey 
DO WHILE Okey 
SET CONSOLE OFF 
ACCEPT TO pasword 
SELECT PRIMARY 
USE TEMPOR 
DELETE ALL 
PACK 
APPEND BLANK 
REPLACE password WITH pasword 
USE 
IF pasword = "QWERT" .OR. pasword = "“ASDFG" 
SET CONSOLE ON 
@ 15,25 SAY "OK, You may continue’ 
SET TALK OFF 
STORE 1 to del 
DO WHILE del < 25 
STORE del+1i to del 
ENDDO 
RETURN 
Bor 
SET CONSOLE ON 
ERASE 
2 “CHR Gy) 
@ 10,22 SAY "WRONG PASSWORD - TRY AGAIN" 
STORE count+1 TO count 
If count = 2 
ERASE 
DO monitr 
@ 10,25 SAY “xx UNAUTHORIZED USER X*x" 
SET DEFAULT TO A 
CANCEL 
ELSE 
STORE " “ TO pasword 
ENDIF 
ENDIF 
ENDDO WHILE 
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KKKKKKKK PROGRAM FRONTPAGE ***KKKK*X 


* This program prints the main heading of the system 


ERASE 
2 2 
222 
on ae 
4,22 
Dy ZZ 
6H 22 
eee 
8,22 
gece 

10, 22 

12,15 

ee 

14,15 

15,15 

MGGeLo 

7 y Lo 

Pee 15 

oy LD 

ZO PS 


@® © © © © ® © @ @© © © © © OO OOO ®@ 


SET TALK OFF 


SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 


SUIRCICICCCIICICICICICICICICICCKIKICIOK ACK AK OK OK "" 
ORK AK FICK AICCICICK IC OK ACK KKK KK "" 
OK AKOKK CICK ICICI KICK KOK AK OK 
7 SOCK CICK ACK AK ACK KAKO AKOK " 
“ORAOKK CCCI ICICI KK IOK KCK KOK AGOK "" 
"OK AOKK CICK KCCI CKO OK OK kK © 
“UICC KICK ICC KCK AICK OK AGOK OK AOK *" 
“UICC ICICI OK ICICI KAKA KK 
UICC IACI IK OK OK KAKA AK KK " 
“UICC ICICI CK CICK ACK OK AK ACK ACK " 
“UICC ICICI ICICI ICICI IKI ACK AIC AICO ACK AK KOK © 
“UICC ICICI ICICI IACI IC IK KICK CICK ACK OK 


"OK KK" 
"OK K A PERSONNEL DATABASE SYSTEM eK" 
"OK FOR 10K" 
"OK K HELLENIC ARMED FORCES FORMATIONS KK" 
"OK 40K" 
SOOOOOOOCOOKOOOOOOOOKOO KKK " 


“ORC”; ICIICK ACK ACK AIK KA" 


STORE 1 TO delay 
DO WHILE delay < 80 

STORE delay+1 TO delay 
ENDDO WHILE 


RETURN 
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KKKKKKKK PROGRAM SETDATE *XKKKKKXxX 
* This program asks the user to set the current date 


ERASE 
SET TALK OFF 
STORE " " TO mdate 
STORE T TO continue 
DO WHILE continue 
ERASE 
@ 12,12 SAY "ENTER DATE (MM/DD/YY) " GET mdate; 
PICTURE "99/99/99" 


READ 

IF VAL($(mdate,1,2)) < 1; 
.OR. VAL($(mdate,1,2)) > 12; 
.OR. VAL($(mdate,4,2)) < 1; 
OR. VAL($(mdate,4,2)) > 31; 


.OR. VAL($(mdate,7,2)) <> 85 
STORE " " TO mdate 
@ 22,15 SAY "INVALID DATE, PLEASE RETRY" 
STORE 1 TO del 
DO WHILE del < 35 
STORE del+i TO del 
ENDDO WHILE 
LOOP 
ELSE 
STORE F TO continue 
SET DATE TO &mdate 
ENDIF 
ENDDO WHILE 
RETURN 
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OOOOKKKK «~PROGRAM MONITR 2K xk 


* This program adds a record in the file MONITOR each time a user 
* enters the system, to keep track of who does what and when. 


ERASE 
STORE " ' TO mijob 
STORE “ ' TO mfle:rept 


*x Use the fields 


SELECT SECONDARY 
USE tempor 


IF password = "QWERT" 


STORE "Tsagaris Panag” TO mname 
ELSE 
IF password = "ASDFG" 


STORE “Karaiskos Const’ 
ELSE 

STORE “Unauthorized 
ENDIF 


*password’ and 


*select’ 


TO mname 


' TO mname 


ENDIF 
DO CASE 
CASE select = "11" 
STORE "Insertion " TO mjob 
STORE "Master ' TO mfle:rept 
CASE select = "12" 
STORE “Insertion ' TO mJjob 
STORE “Units ' TO mfle: rept 
CASE select = "13" 
STORE “Insertion “ TO mjob 
STORE "Ranks ' TO mfle: rept 
CASE select = "14" 
STORE “Insertion TO mjob 
STORE “Duties TO mfle: rept 
CASE select = °"15" 
STORE “Insertion » LO mijeo 
STORE "Forlangs ' TO mfle:rept 
CASE select = "16" 
STORE “Insertion ' TO mjob 
STORE “Sciences ' TO mfle: rept 
CASE select = "21" 
STORE “Deletion ' TO mjob 
STORE “Master ' TO mfle: rept 
CASE select = "22" 
STORE "Deletion hom JOD 
STORE "Units ' TO mfle:rept 
CASE select = "23" 
STORE "Deletion ' TO mjob 
STORE "Ranks ' TO mfle:rept 
CASE select = "24" ; 
STORE “Deletion ' TO mjob 
STORE “Duties TO mfle: rept 
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of file TEMPOR and store 
x the appropriate information to temporary memory variables 


CASE select = "25" 
STORE “Deletion 
STORE "Forlangs 

CASE select = "26" 
STORE "Deletion 
STORE “Seiences 

CASE select =a ue 
STORE “Modification” 
STORE “Master 

CASE select as 
STORE “Modification” 
STORE ‘Units 

CASE select =“ 3 
STORE “Modification” 
STORE “Ranks 

CASE select = 4 
STORE “Modification” 
STORE “Duties 

CASE select = "35" 


STORE "Modification" 
TO 


STORE "“Forlanégs 
CASE select =~ SOU 


STORE “Modification” 
he 


STORE “Sclences 
CASE select = "1" 


IF sub3 
STORE “Printing 
OTORE “Monitor 
ELSE 
STORE “Printing 
STORE “Reportl 
ENDIF 
CASE select = "2" 
IF sub3 
STORE “Printing 
STORE "Statistic 
ELSE 
STORE “Printing 
STORE “Report2 
ENDIF 
CASE select = "3" 
IF sub3 
STORE “Deletion 
STORE “Monitor 
BLSE 
STORE "Printing 
STORE "“Report3 
ENDIF 
CASE select = "4" 
IF sub3 
STORE “Deletion 
STORE “Statistic 
ELSE 
STORE “Printing 


TO 


TO 


mjob 


mfle: 


mjob 


mfle: 


mjob 


mfle: 


mjob 


mfle: 


mjob 


mfle: 


mjob 


mfle: 


mjob 


mfle: 


mjob 


mfle: 


rept 


rept 


rept 


rept 


rept 


rept 


rept 


rept 


ao 
elo, 


me ke. 
Te 


me ke 
' TO 


' TO 
' TO 


' TO 
ake: 


' TO 
ee, 


TO 


' TO 


TO 
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mjob 


mfle: 


mjob 


mfle: 


mjob 


mfle: 


mjob 


mfle: 


mjob 


mfle: 


mjob 


mfle: 


mjob 


mfle: 


mjob 


rept 


rept 


rept 


rept 


rept 


rept 


rept 


END 


STORE 


ENDIF 
CASE select 
IF sub3 
STORE 
STORE 
ELSE 
STORE 
STORE 
ENDIF 


CASE select 


STORE eae ing 
STORE "“Reports6 


CASE select 


SIORE Printing 


“Report4 


“BH 


' TO 


“Sereen Disp “ 
“Master : 


“Printing 
“Reports 


Hg 


ie 


STORE Report? : 


CASE select 


STORE “Printing 
STORE “Reports 


CASE 


3a 


STORE counter TO mnumrec 


* Append the record to the MONITOR 


SELECT SECONDARY 


USE 


monitor 


APPEND BLANK 


REP 
REP 
REP 
REP 
REP 
USE 


SELECT PRIMARY 


RET 


LACE 
LACE 
LACE 
LACE 
LACE 


URN 


date WITH DATE() 
name WITH mname 
job WITH mjob 

fle:rept WITH mfle:rept 
numrec WITH mnumrec 


= oO 
seiko. 


' TO 
' TO 


' TO 


TO 


ke 
‘ TO 


mfle:rept 


TO 
TO 


mjob 
mfle:rept 


mjob 
mfle:rept 


mjob 
mfle:rept 
mjob 
mfle:rept 
mjob 


mfle:rept 


file 
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KOKKKKKK PROGRAM SUBMENUL ***®*K*Kx 


* This program controls the Update Operations 


* of the system 

ERASE 

STORE “ " TO select 

DO WHILE T 
ERASE 
@ 2,50 SAY DATE() 
@ 3,15 SAY “UICC ICICI ICICICICICIOICI ICICI’ ICI OOK KIO OK OK KKK & 
@4,15 SAY "xX *"" 
@ 5,15 SAY "x SUBMENU 1 *"' 
@ 6,15 SAY "x ee Dp Are OPE RA TT Ieee. mgt 
@ 7,15 SAY "x *K"" 
@ 8,15 SAY “OOOO OOK OIC OKI”; OKO IKOKOK K IOK KKK 
@ 9,15 SAY "x OPTIONS FILES ys 
@ 10,15 SAY "K ==] 455- 0 2 2 2 2.,.,.,¢,¢,— re xy 
@ 11,15 SAY "x 1=MASTER *" 
@ 12,15 SAY "x O-Exit to MAIN MENU 2-UNITS *" 
@ 13,15 SAY "x 1=Insertion 3=RANKS *" 
@ 14,15 SAY "x 2-Deletion 4=DUTIES *" 
@ 15,15 SAY "x 3=Modification 5=FORLANGS *"" 
@ 16,15 SAY "x 6=SCIENCES *«" 
@ 17,15 SAY "x co 
@ 18,15 SAY [ORR OOOO AOC KARA CCK RK " 
@ 20,15 SAY " Make the appropriate selection by pressing" 
@ 21,15 SAY “the option number first and then the file i. 
@ 22,15 SAY “number. For example, if you want to insert 
@ 23,15 SAY “records in file UNITS, press 12. 


ACCEPT TO selection 


* Store selection to the field select of the file TEMPOR 
* in order to be used by the monitor program 


SELECT PRIMARY 

USE tempor 

REPLACE select WITH selection 
USE 


* Accept the selection and branch to the corresponding program 


DO CASE 

CASE selection = "Q" 
RETURN 

CASE selection = "11" 
DO insertl 

CASE selection = "12" 
DO insert2 

CASE selection = "13" 
DO insert3 

CASE selection = "14" : 
DO insert4 

CASE selection = mabe e 


5 0 


DO insert5 
CASE selection = "16" 
DO inserté6 
CASE selection = "21" 
DO deletel 
CASE selection = "22" 
DO delete2 
CASE selection 
DO delete3 
CASE selection 
DO deleted 
CASE selection 
DO deleted 
CASE selection = "26" 
DO deleteé6 
CASE selection = "31" 
DO modifyl 
CASE selection = "32" 
DO modify2 
CASE selection = "33" 
DO modify3 
CASE selection = "34" 
DO modify4 
CASE selection = "35" 
DO modifyd5 
CASE selection = "36" 
DO modify6 
OTHERWISE 
2 GH 7 ) 
ERASE 
@ 10,17 SAY selection+" IS AN ILLEGAL SELECTION" 
@ 10,43 SAY ", PLEASE TRY AGAIN" 
SET TALK OFF 
STORE 1 TO delay 
DO WHILE delay < 40 
STORE delay+1 TO delay 
ENDDO WHILE 
ENDCASE 
ENDDO WHILE T 


Hog” 


"OA" 


"OB 


Sl 


oO KK «6~PROGRAM SUBMENU2 **k*kkkxkx 


x This program controls the Report Generators 


*K 


function of the system 


STORE T TO noexit 

STORE F TO 

DO WHILE noexit 
SET PRINT OFF 
ERASE 


OHOODOHD DH OOD DDO DBOHOOOOOOOO ®& 


1,50 
2,23 
3,13 
4,13 
Dou 
aye 1: 
(oye lic! 
8,13 
9,23 
10,13 
es 
yeaa a 
AS ls 


sub3 


SAY DATE( ) . 

SAY “OKOKOIOK KOKO OK KOKO IOI OIC KK IKK KOK AK IKK KK KK KK 
SAY "xX SU BMEN U 2 * 4 
SAY "xX RE PO R feo AVAILABLE a 
SAY “ORO OKOIOKOKOKOKOKOKOKICIOKOKOIOOIOKOOIKKIOKIOKIOK OK OK IK OK KKK KK KOK aK " 
SAY "* 1=List of officers in alphabetical order *" 
SAY "x * 
SAY "x 2=List of officers ordered by rank * 
SAY "xX 
SAY "x 3=List of units with their officers * 
SAY "x * 
SAY "* 4=List of officers with non_military studies *x 
SAY "xX | * 
SAY "* 5=List of officers who know foreign languages *’" 
SAY "xX * 7 
SAY "“* 6=List of officers including marital status * 
SAY "xX *K 
SAY "XK 7=List of officers with service times * 
SAY "x * 
SAY “* 8=List of officers with addresses and phone# x” 
SAY ‘OKO CIO OCI IOI KIKI KKK KK KOK KKK * 
Ae Enter the corresponding number OR 

SAY " enter O to exit to main menu 

' TO choice 

choice 


* Store choice to the “select” field of tempor to be used 
*K by the monitor program 


SELECT SECONDARY 

USE tempor 

REPLACE select WITH choice 
USE 


* Accept the choice and branch to corresponding program 


DQ CASE 


CASE 


choice = "OQ" 


RETURN 


CASE 


choice = "i" 


DO reportl 


CASE 


choice = "2" 


DO report2 
CASE choice = "3" 


SZ 


DO report3 
CASE choice = “ 
DO report4 
CASE choice = " 
DO reportsd 
CASE choice = " 
DO reportsé6 
CASE choice = " 
DO report? 
CASE choice = “ 
DO report8 

OTHERWISE 


Oo nN Dd OH ff 


* Print an error message and give another chance 


BRASE 
emilee) 
@ 10,17 SAY choicet+" IS AN ILLEGAL CHOICE - TRY AGAIN" 
STORE 1 TO del 
DO WHILE del < 40 
STORE del+1 TO del 
ENDDO WHILE 
ENDCASE 
ENDDO WHILE 
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KKKKAKKKK PROGRAM SUBMENUS3S *K**KKK*x 


* 


* This program controls the Miscellaneous function 


*x 
* 
ERASE 


of the system 


STORE T TO noexit 


STORE T TO 


sub3 


DO WHILE noexit 


ERASE 


SET PRINT OFF 


3,52 
4,16 
5,16 
6,16 
(ako 
S, 16 
9,16 
10,16 
1 take 
12,16 
135.16 
14,16 


@OQOQODHD OOO OO OOO ® © ® 


SAY DATE(C) 

SAY ORCA ARAKI aGK " 
SAY '"X *" 
SAY "xX SU BMEN U 3 Se 
SAY "x MISCELLANEOUS OPERATIONS a 
SAY "x *x" 
SAY "UK OK IO OOK IOI KIA KK KK OK OK KK 
SAY "* *' 
SAY "xX O = Exit to MAIN MENU *" 
SAY "xX 1 = Print MONITOR file * 
SAY "X 2 = Print STATISEHIG tile * 
SAY "xX 3 = Delete MONITOR file *" 
SAY "X 4 = Delete STATISTIC file * " 
SAY "xX 5 = Display an officer’s data * 
SAY "x on the screen a 
SAY ORK KOO OOOO OICIIOIK IOIIKIOKOIOK ICIAIOIKAOK KK KKK ' 
SAY " Enter the corresponding number ™ 
' TO choice 

choice 


* Store choice to the “select” field of TEMPOR to be used 
* by the monitor program 


SELECT SECONDARY 
USE tempor 


REPLACE 
USE 


select WITH choice 


* Accept choice and branch to the corresponding program 


DO CASE 

CASE choice = “"Q" 
RETURN 

CASE choice = "1" 
DO printmon 

CASE choice = "2" 
DO printstat 

CASE choice = "3" 
DO delmon 

CASE choice = "4" 
DO delstat 


CASE choice = "5" 
DO dispsecrn 
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OTHERWISE 
* Print an error message and give another chance 


ERASE 
° CHR(7) 
@ 11,17 SAY choice+" IS AN ILLEGAL CHOICE - TRY AGAIN” 
STORE 1 TO del 
DO WHILE del < 40 
STORE del+1 TO del 
ENDDO WHILE 
ENDCASE 
ENDDO WHILE 
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S PROGRAMS IMPLEMENTING THE UPDATE OPERATIONS 
These programs permit the user to perform insertions, 
deletions, and modifications in the files of the database. 
1. Insertion Programs 

These programs are for adding records to the data- 
base files. The structure of all the programs follow the 
same logic, so we will describe only the program which adds 
records to the MASTER (PERSONNEL) file. 

The whole structure of the program is as follows: 

a. The MASTER file is opened. 

b. The user is prompted to enter the new serial 
number or a blank in order to exit to SUBMENU], when he is 
finished. 

c. The program searches the MASTER file for the 
new serial number. If it already exists, prints an error 
message and gives another chance, otherwise it proceeds. 

d. The proper memory variables, in which the new 
values are to be stored, are initialized to blanks. For 
Simplicity the names of the memory variables are the same 
as the corresponding field names with the prefix 'm', which 
stands for memory. This holds throughout the whole system. 

e. Then the program displays on the screen the new 
serial number, the names of the fields and the corresponding 
blank space. Then the user can enter the new values. Again 


the user has the opportunity to ext byepnecstngee elk a 
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f. Then a blank record is appended to the MASTER 
File and each field is replaced with the corresponding 
memory variable. 

g.- The whole operation is repeated within a WHILE 
loop, until the user exits. 

h. The program MONITR which is for monitoring every 
job done in the database, is called only once before the 
program exits from either of the three possible exits, and 
after the number of changes is stored in the field ‘counter' 
of the file TEMPOR. This is performed in all the programs 
that need to monitor the job done in the database. 

The listings of the programs are given in the fol- 


lowing pages. 


oy 


KKKKKKKK PROGRAM INSERT1 **KKKKKX 
* This program adds records to MASTER( PERSONNEL) file 


ERASE 
SELECT PRIMARY 
USE master INDEX master 
STORE O TO count 
STORE "X*X*X*K*X ADDING RECORDS TO MASTER FILE *xxxx" TO titlel 
STORE T TO continue 
DO WHILE continue 
ERASE 
STORE ° “ to mserno 
@ 5,60 SAY DATE() 
@ 7,5 SAY titlel 
@ 10,5 SAY "ENTER A SERIAL NUMBER" GET mserno PICTURE "9999" 
@ 12,5 SAY “Press ’ENTER’ to exit” 


READ 
IF $(mserno,1,1) = " 
USE 
* Before the program returns, it stores the variable 
* count(# of changes) to the field ’counter’ of TEMPOR 
*X and records the changes. This is done in all three 
*X exits of the program. 


IF count > O 
SELECT SECONDARY 
USE tempor 
REPLACE counter WITH count 
USE 
DO monitr 

ENDIF 

RETURN 

ENDIF 


* Search the master file for the new serial number. 
* If it already exists print an error message, display 
* the record and let the user decide what to do. 


FIND &mserno 


IF + -<omeG 

7 ICHiGs) 
@ 14,5 SAY "The record already exists’ 
@ 16,5 SAY "The current record i1s:” 
@ 18,5 SAY “serial number = "+serno 
@ 19,5 SAY "name = "“+name 
@ 21,5 SAY “TRY AGAIN? (Y/N)" 
STORE " " TO answer 
WAIT TO answer 
IF answer = “y" 

LOOP 
ELSE 

USE 


a6) 


IF count > 0O 
SELECT SECONDARY 
USE tempor 
REPLACE counter WITH count 
USE 
DO monitr 

ENDIF 

RETURN 

ENDIF 
ENDIF 


* Initialize memory variables 


ERASE 

SORE ° “ TO mname 
STORE " " TO mrank 

STORE " “ TO munit 

STORE " “ TO mserentry 

STORE °" “ TO mreptdate 

STORE " " TO mduty 

STORE ° " TO meducat 

STORE “ " TO mdegree 

sacks LO mtforlang 

STORE " " TO mmarstat 

STORE ° " TO mchildren 

STORE " " TQ maddress 
STORE “ “ TQ mphone 


@ 1,60 SAY DATE() 
@ 2,5 SAY titlel 
@ 4,5 SAY "serial number = "+mserno 


* 


Get the values for the new record 


@ 5,5 SAY "name " GET mname; 
PICTURE "“XXXXXXXXXXXKXKXX" 
@ 6,5 SAY “rank " GET mrank PICTURE "99" 
@ 7,5 SAY “unit " GET munit PICTURE "9999" 
@ 8,5 SAY "“serentry”" GET mserentry PICTURE "999999" 
@ 9,5 SAY "“reptdate" GET mreptdate PICTURE "999999" 
@P10,5 SAY “duty “ GET mduty PICTURE "99" 
@ 11,5 SAY “educat "“ GET meducat PICTURE "99" 
@ 12,5 SAY "degree " GET mdegree PICTURE "A" 
@ 13,5 SAY "“forlang " GET mforlang PICTURE "99" 
@ 14,5 SAY "“marstat " GET mmarstat PICTURE "A" 
@ 15,5 SAY "children" GET mchildren PICTURE "9" 
@ 16,5 SAY “address “ GET maddress; 
PICTURE "“XXXXXXXXXXXXXXXXXXXX" 
@ 17,5 SAY "phone " GET mphone PICTURE "9999999" 
@ 20,5 SAY "Enter blanks to exit’ 
READ 
IF $(mname,1,1}) = “ 
USE 


IF count > OQ 
SELECT SECONDARY 


Bye, 


USE tempor 
REPLACE counter WITH count 
USE 
DO monitr 
ENDIF 
RETURN 
ENDIF 


x Append a new empty record in the master file and replace 
* each field with the corresponding memory variable. 


APPEND BLANK 
REPLACE serno WITH mserno 
REPLACE name WITH mname 
REPLACE rank WITH mrank 
REPLACE unit WITH munit 
REPLACE serentry WITH mserentry 
REPLACE reptdate WITH mreptdate 
REPLACE duty WITH mduty 
REPLACE educat WITH meducat 
REPLACE degree WITH mdegree 
REPLACE forlang WITH mforlang 
REPLACE marstat WITH mmarstat 
REPLACE children WITH mchildren 
REPLACE address WITH maddress 
REPLACE phone WITH mphone 
STORE count+l TO count 

ENDDO WHILE continue 
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*KKKKKKKK PROGRAM INSERT2 *kkkkkKkKx 
* This program adds records to UNITS file 


ERASE 
SELECT PRIMARY 
USE units INDEX units 
STORE “*kkkk ADDING RECORDS TO UNITS FILE *xxx*x" TO title2 
STORE O TO count 
STORE T TO continue 
DO WHILE continue 
ERASE 
STORE " " TO mcode 
@ 5,60 SAY DATE() 
@ 7,5 SAY title2 
@ 10,5 SAY "ENTER A UNIT CODE" GET mcode PICTURE "9999" 
@ 12,5 SAY "Press ’ENTER’ to exit” 
READ 
IF $(mcode,1i,1) = " 
USE 


* Refore the program returns, it updates the TEMPOR and 
* MONITOR files. This is done in all three exits of the 
* program 


IF count > 0O 
SELECT SECONDARY 
USE TEMPOR 
REPLACE counter WITH count 
USE 
DO monitr 

ENDIF 

RETURN 

ENDIF 


*x* Search the units file for the new unit code. If it already exists 
* print an error message and give another chance otherwise proceed. 


FIND &mcode 


ctor <> O 

Pamcriie (7 ) 
@ 14,5 SAY "The record already exists’ 
@ 16,5 SAY “The current record is:” 
@ 18,5 SAY “code = "+code 
@ 19,5 SAY "title = "+title 
@=20.5 SAY ‘location = “+location 
@ 22,5 SAY "TRY AGAIN ? (Y/N)" 
STORE " " TO answer 
WAIT TO answer 
IF answer = "y" 

LOOP 
ELSE 

USE 


IF count > QO 
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SELECT SECONDARY 
USE tempor 
REPLACE counter WITH count 
USE 
DO monitr 

ENDIF 

RETURN 

ENDIF 
ENDIF 


* Initialize memory variables 


BERASE 
STORE " “ TQ mtitle 
STORE ° " TO mlocation 


@ 3,60 SAY DATE() 
@ 5,5 SAY title2 
@ 8,5 SAY “unit code = "+mcode 
@ 10,5 SAY “title " GET mtitle PICTURE "“XXXXXXXXXXXXXXX" 
@ 11,5 SAY "location" GET mlocation PICTURE “XXXXXXXXXXxXx" 
@ 15,5 SAY "Enter blanks to exit" 
READ 
TF $(mticlesat|. |) sea. 
USE 
IF count > 0 
SELECT SECONDARY 
USE tempor 
REPLACE counter WITH count 
USE 
DO monitr 
ENDIF 
RETURN 
ENDIF 


x Append a blank record in the units file and replace 
* each field with the corresponding memory variables 


APPEND BLANK 
REPLACE code WITH mcode 
REPLACE title WITH mtitle 
REPLACE location WITH mlocation 
STORE count+1 TO count 

ENDDO WHILE continue 


er 


KKKKKKKK PROGRAM INSERTS **kkKK%X 
* This program adds records to RANKS file 


ERASE 
SELECT PRIMARY 
USE ranks INDEX ranks 
STORE “***kKkK ADDING RECORDS TO RANKS FILE *xxxx" TO title3 
STORE O TO count 
STORE T TO continue 
DO WHILE continue 
ERASE 
STORE “" "“ TO mcode 
@ 5,60 SAY DATE() 
@ 7,5 SAY title3 
@ 10,5 SAY "ENTER A RANK CODE" GET mcode PICTURE "99" 
@ai2,5 SAY Press ’ENTER’ to exit” 
READ 
IF $(mcode,1i,1) = " 
USE 
IF count > O 
| SELECT SECONDARY 
USE tempor 
REPLACE counter WITH count 
USE 
DO monitr 
ENDIF 
RETURN 
ENDIF 


Search the RANKS file for the new code. If it already 
exists print an error message and give another chance 
otherwise proceed 


HH 


FIND &mcode 


IF # <> O 

?° CHR(7) 
@ 14,10 SAY “ The record already exists” 
@ 16,5 SAY “The current record is:” 
@ 18,5 SAY “code = "+code 
@ 19,5 SAY “armyname = “+armyname 
@ 20,5 SAY "“navyname = “+navyname 
@ 22,5 SAY “TRY AGAIN ? (Y/N)" 
STORE “ "“ TO answer 
WAIT TO answer 
IF answer = ‘y" 

LOOP 
ELSE 

USE 


IPeeount > 0 
SELECT SECONDARY 
USE tempor 
REPLACE counter WITH count 
USE 
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DO monitr 
ENDIF 
RETURN 
ENDIF 
ENDIF 


KX Jnitializge memory variables 


ERASE 
STORE “ “ TO marmyname 
oulCigdd “ TO mnavyname 


x Get the new values 


@ 4,60 SAY DATE() 
@ 5,5 SAY title3 
@ 8,5 SAY "Rank code = "+mcode 
@ 10,5 SAY “armyname" GET marmyname PICTURE "“XXxXX" 
@ 11,5 SAY “navyname" GET mnavyname PICTURE "“XXxXxX" 
READ 


* Append the new record to the RANKS file 


APPEND BLANK 
REPLACE code WITH mcode 
REPLACE armyname WITH marmyname 
REPLACE navyname WITH mnavyname 
STORE count+1 TO count 

ENDDO WHILE continue 
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KRKKKKKKKK PROGRAM INSERT4 *kKKKKKKKX 


* This program adds records to DUTIES file 


ERASE 
SELECT PRIMARY 
USE duties INDEX duties 
STORE °“*k*kk*k ADDIND RECORDS TO DUTIES FILE **xxx" TO title4 
STORE O TO count 
STORE T TO continue 
DO WHILE continue 
BRASE 
STORE " " TO mcode 
@ 5,60 SAY DATE() 
@ 7,5 SAY title4 
@ 10,5 SAY "ENTER A DUTY CODE" GET mcode PICTURE "99" 
@ 12,5 SAY "Press ’ENTER’ to exit" 
READ 
[tMesimeode,i,i) = " " 
USE 
iP @eewmt > O 
SBLECT SECONDARY 
USE tempor 
REPLACE counter WITH count 
USE 
DO monitr 
ENDIF 
RETURN 
ENDIF 


* Search DUTIES file for the new code. If it exists print an 
* error message and give another chance, otherwise proceed. 


FIND &mcode 


ie # <> O 
Pome riic( / ) 
@ 14,5 SAY "The record already exists” 
@ 16,5 SAY “The current record is:” 
@ 18,5 SAY “code = "+code 
@ 19,5 SAY “name = “+name 
@ 21,5 SAY "TRY AGAIN ? (Y/N)" 
STORE " " TO answer 
WAIT TO answer 
IF answer = “y' 
LOOP 
Bio 
USE 


IF count > O 
SELECT SECONDARY 
USE tempor 
REPLACE counter WITH count 
USE 
DO monitr 
ENDIF 
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RETURN 

ENDIF 
ENDIF 
STORE " “ TO mname 
ERASE 
@ 5,60 SAY DATE() 
@ 7,5 SAY titled 
@ 10,5 SAY “duty code = "+mcode 
@ 12,5 SAY “name” GET mname PICTURE "“XXXXXXXXXXXXXXXXXKXX" 
READ 


x Append the record to DUTIES file 


APPEND BLANK 

REPLACE code WITH mcode 

REPLACE name WITH mname 

STORE count+l TO count 
ENDDO WHILE continue 
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xOOKKKKKK PROGRAM INSERT5 [OOOO 


x This program adds records to FOREIGN LANGUAGES file 


ERASE 
SELECT PRIMARY 
USE forlangs INDEX forlangs 
STORE “***x** ADDING RECORDS TO FORLANGS FILE *xxxx" TO titled 
STORE O TO count 
STORE T TO continue 
DO WHILE continue 
ERASE 
STORE " " TO mcode 
@ 5,60 SAY DATE() 
@ 7,5 SAY titled 
@ 10,5 SAY "ENTER A LANGUAGE CODE" GET mcode PICTURE "99" 
@ 12,5 SAY “Press ’ENTER’ to exit” 
READ 
IF $(mcode,i1,1) = " 
USE 
IF count > O 
SELECT SECONDARY 
USE tempor 
REPLACE counter WITH count 
USE 
DO monitr 
ENDIF 
RETURN 
ENDIF 


* Search the forlangs file for the new code. If it already 
xX exists, Print an error message and give another change, 
* otherwise proceed 


FIND &mcode 


IF # <> QO 
m CHR( 7) 
@ 14,5 SAY "The record already exists. Try again." 
@ 16,5 SAY "The current record is:” 
@ 18,5 SAY “code = "+code 
@ 19,5 SAY "name = "“+name 
@ 21,5 SAY "TRY AGAIN? (Y/N)° 
STORE " " TO answer 
WAIT TO answer 
IF answer = "y' 
LOOP 
yu bysyn 
USE 


IF count > O 
SELECT SECONDARY 
USE tempor 
REPLACE counter WITH count 
USE 
DO monitr 
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ENDIF 
RETURN 
ENDIF 
ENDIF 


* Initialize memory variables. 


ERASE 

STORE " “ TO mname 

@ 4,60 SAY DATE() 

@ 5,5 SAY titled 

@ 8,5 SAY "language code = "+mcode 


* Get the name for the new language. 


@ 10,5 SAY “name” GET mname PICTURE “XXXXXXXXXXXX" 
READ 


* Append an empty record and replace the fields 
* with the corresponding memory variables. 


APPEND BLANK 

REPLACE code WITH mcode 

REPLACE name WITH mname 

STORE count+l TO count 
ENDDO WHILE continue 
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KKKKKKKK PROGRAM INSERT6 *KKKKK*KxX 
* This program adds records to SCIENCES file 


ERASE 
SELECT PRIMARY 
USE sciences INDEX sciences 
STORE “**x*x*x ADDIND RECORDS TO SCIENCES FILE *xxxx" TO title6 
STORE O TO count 
STORE T TO continue 
DO WHILE continue 
ERASE 
STORE “ " to mcode 
@ 5,60 SAY DATE() 
@ 7,5 SAY titleé 
@ 10,5 SAY "ENTER A SCIENCE CODE” GET mcode PICTURE "99" 
@ 12,5 SAY “Press ’ENTER’ to exit" 
READ 
IF $(mcode,1,1) = “ 
USE 
IF count > 0 
SELECT SECONDARY 
USE tempor 
REPLACE counter WITH count 
USE 
DO monitr 
ENDIF 
RETURN 
ENDIF 


* Search the sciences file for the new code. If it already 
* exists, print an error message and give another chance, 
xX otherwise proceed 


FIND &mcode 
IF # <> QO 
~eGHk( 7 ) 
@ 14,5 SAY “The record already exists’ 
@ 16,5 SAY “The current record is:” 
@ 18,5 SAY “code = "“+code 
@ 19,5 SAY “name = “+name 
@ 21,5 SAY "TRY AGAIN? (Y/N)° 
STORE " " TO answer 
WAIT TO answer 
IF answer = “y" 
LOOP 
ELSE 
USE 


IF count > QO 
SELECT SECONDARY 
USE tempor 
REPLACE counter WITH count 
USE 
CO. monitr 
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ENDIF 
RETURN 
ENDIF 
ENDIF 


* Initialize memory variable 


ERASE 

STORE ° “ TO mname 
@ 4,60 SAY DATE() 

@ 5,5 SAY title6 

@ 8,5 SAY “science code = "“+mcode 


x Get the name for the new science 


@ 10,5 SAY “name” GET mname PICTURE “XXXXXXXXXXXXXXXXXXX" 
READ 


* Append an empty record and replace the fields with 
* the corresponding memory variable. 


APPEND BLANK 

REPLACE code WITH mcode 

REPLACE name WITH mname 

STORE count+l TO count 
ENDDO WHILE continue 
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= Deletion Programs 


These programs are for deleting records from the 
files of the database. Again we will describe only the 
program that performs deletions from the MASTER file since 
all the other programs have the same structure. 

The structure of the program is as follows: 

a. The MASTER file is opened. 

b. The user is prompted to enter the serial number, 
which is the key value of the record to be deleted. He 
can also exit by pressing 'ENTER'. 

c. When the user exits after he is finished, that 
is, after several deletions have been made, then the number 
of deletions which is kept in the variable ‘count', is trans- 
ferred to the field 'counter' of the file TEMPOR. Then the 
program MONITR is called to record the changes. If the user 
exits at the beginning, that is, without doing anything, then 
the program returns to SUBMENU1. 

d. The MASTER file is searched for the serial num- 
ber. If the record does not exist, the program prints an 
error message, and gives another chance. If the record 


exists, then it is displayed on the screen. 


e. At this point the user is asked to confirm the 
deletion. If he is sure that the record must be deleted, 
he has just to enter 'Y', and the deletion operation is per- 


formed, otherwise he has to enter 'N' to abort the deletion. 
Then the program loops, repeating the whole operation. 
The listings of the programs are given in the next pages. 
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KACKKKKKK PROGRAM DELETE1L **kKKkxk*x 
* This program deletes records from MASTER file 


ERASE 
SELECT PRIMARY 
USE master INDEX master 
STORE "*x*kKX*kK DELETING RECORDS FROM MASTER FILE *x*xxx" TO title 
OTORE * “ TO mserno 
STORE O TO count 
STORE T TO continue 
DO WHILE continue 
ERASE 
@ 5,60 SAY DATE() 
@ 7,5 SAY title 
@ 10,5 SAY “Enter serial number" GET mserno PICTURE "9999" 
@ 12,5 SAY "Press ’ENTER’ to exit” 
READ 
IF $(mserno,1,1}) = " 
USE 


*X If the user has already made deletions store the 
* number of deletions in the file TEMPOR, record 

* the changes and return to SUBMENUI1, otherwise 

x just return 


IF count <> O 
SELECT SECONDARY 
USE tempor 
REPLACE counter WITH count 
USE 
DO monitr 

ENDIF 

RETURN 

ENDIF 


* Search MASTER file for the serial number. If the 
*K record does not exist print an error message and 
XK give another chance, otherwise display the 

* record and let the user confirm the deletion. 


FIND &mserno 
1IF #o=50 
° CARG?) 
@ 22,5 SAY “The record does not exist, try again” 
STORE 1 TO del 
DO WHILE del < 30 
STORE del+i TO del 
ENDDO WHILE 
3 Ota “ TO mserno 
LOOGR 
ELSE 
ERASE 
@ 2,60 SAY DATE(C) 


D2 


@ 3,5 SAY title 

@ 5,5 SAY "Record to be deleted” 
@ 7,5 SAY "“serno = "+serno 

@ 8,5 SAY “name = "“+name 
@9,5 SAY "rank = "+rank 

@ 10,5 SAY “unit = "“+unit 

@ 11,5 SAY “serentry = "+serentry 
@ 12,5 SAY ‘reptdate = "“"+reptdate 
@ 13,5 SAY “duty = “4+duty 

@ 14,5 SAY "“educat = "+educat 

@ 15,5 SAY “degree = “+degree 

@ 16,5 SAY "“forlang = "+forlang 
@ 17,5 SAY “marstat = "“+marstat 
@ 18,5 SAY "children = "+children 
@ 19,5 SAY “address = "“+address 
@ 20,5 SAY "phone = "+phone 

=. COR (7 ) 

@ 22,5 SAY "The record will be deleted. PROCEED ?° (Y/N)° 
STORE " " TO answer 


WAIT TO answer 


* If the user confirms the deletion some data 

* concerning the officer in question are 

* transfered to the STATISTIC file and then the 
* deletion is performed. 


IF answer = "y 

SELECT SECONDARY . 

USE statistic 

APPEND BLANK 

REPLACE serno WITH p. 

REPLACE name WITH p. 

REPLACE rank WITH p. rank 

REPLACE unit WITH p.unit 

REPLACE reptdate WITH ; 
$(p.reptdate,1,2)+"/"+$(p. reptdate,3,2)+'"/'; 
+$(p. reptdate, 5,2) 

REPLACE deldate WITH DATE() 


serno 
name 


USE 
SELECT PRIMARY 
DELETE 
PACK 
STORE count+l1 TO count 
ENDIF 
ENDIF 
SOnt © ' TO mserno 


ENDDO WHILE continue 
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koOKKKKKK PROGRAM DELETE2 *****kkx 
* This program deletes records from UNITS file 


ERASE 
SELECT PRIMARY 
USE units INDEX units 
STORE "xxk*xxxk DELETING RECORDS FROM UNITS FILE **x*x" TO tittle 
STORE " “ TO mcode 
STORE O TO count 
STORE T TO continue 
DO WHILE continue 
ERASE 
@ 5,60 SAY DATE() 
@ 7,5 SAY tistle 
@ 10,5 SAY "Enter unit code” GET mcode PICTURE "9999" 
@ 12,5 SAY "Press ’ENTER’ to exit’ 


READ 
IF $(mcode,1,1) = " 
USE 
*K If the user has already made deletions ,store the number 
*K of deletions in the file TEMPOR, record the changes and 
* and return to SUBMENUI, otherwise just return. 
IF count <> O 
SELECT SECONDARY 
USE tempor 
REPLACE counter WITH count 
USE 
DO monitr 
ENDIF 
RETURN 
ENDIF 
* Search UNITS file for the unit code. If the record does not 
* exist print an error message and give another chance, 
x otherwise display the record and let the user confirm 
* the deletion 


FIND &mcode 
[IF 4-26 
7 HEC? |) 
@ 22,5 SAY " The record does not exist, try again’ 
STORE 1 TO del 
DO WHILE del < 30 
STORE del+i TO del 
ENDDO WHILE 
5 lORE = “ TO mecode 
LOOP 
HERS a 
ERASE 
@ 2,60 SAY DATEC ) 
© 3,5 SAY sbitele 
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@ 5,5 SAY "Record to be deleted" 
@ 7,5 SAY “code = "+code 
@ 8,5 SAY "title = "“4+title 
@ 9,5 SAY "location = "+location 
eCHiv( 7 ) 
@ 15,5 SAY "The record will be deleted. PROCEED ? (Y/N)" 
STORE " " TO answer 
WAIT TO answer 
IF answer = "y" 
DELETE 
PACK 
STORE count+t+l TO count 
ENDIF 
ENDIF 
SlOR " TO mcode 


ENDDO WHILE continue 


is 


KKKKKKKK PROGRAM DELETES *******x 
* This program deletes records from RANKS file 


ERASE 
CLEAR 
SELECT PRIMARY 
USE ranks INDEX ranks 
STORE "*k*xk*x DELETING RECORDS FROM RANKS FILE **x**x" TO title 
STORE " " TO mcode 
STORE O TO count 
STORE T TO continue 
DO WHILE continue 
ERASE 
@ 5,60 SAY DATE() 
@ 7,5 SAY title 
@ 10,5 SAY "Enter rank code" GET mcode PICTURE "99" 
@ 12,5 SAY "Press ’ENTER’ to exit’ 


READ 
IF $(mceode,1,1) = “" 
USE 
* If the user has already made deletions, store the number 
x of deletions in the file TEMPOR, record the changes and 
*K return to SUBMENUI1, otherwise just return. 
IF count <> O 
SELECT SECONDARY 
USE tempor 
REPLACE counter WITH count 
USE 
DO monitr 
ENDIF 
RETURN 
ENDIF 
* Search RANKS file for the code. If the record does not exist, 
* print an error message and give another chance, otherwise 
* display the record and let the user confirm the deletion. 


FIND &mcecode 
IF # =9@ 
° CHR(7) 
@ 22,5 SAY “The record does not exist, try again” 
STORE 1 TO del 
DO WHILE del < 30 
STORE del+i TO del 
ENDDO WHILE 
STORE " “" TO mecode 
LOOr 
RLSE 
ERASE 
@ 2,60 SAY DATE( ) 
@ 3,5 SAY title 
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@ 5,5 SAY "Record to be deleted" 
@ 7,5 SAY “code = "+code 
@ 8,5 SAY "“armyname = "+armyname 
@ 9,5 SAY “navyname = "+navyname 
° CHR(7) 
@ 15,10 SAY "The record will be deleted. PROCEED ?° (Y/N)’ 
STORE " " TO answer 
WAIT TO answer 
IF answer = "y" 
DELETE 
PACK 
STORE count+1 TO count 
ENDIF 
ENDIF 
STORE “" “" TO mcode 


ENDDO WHILE continue 


a. 


*KKKKKKK PROGRAM DELETE4 *KKKKKKX 
* This program deletes records from DUTIES file 


ERASE 
SELECT PRIMARY 
USE duties INDEX duties 
STORE "*k*** DELETING RECORDS FROM DUTIES FILE *x*x*xx" TO title 
STORE " " TO mcode 
STORE O TO count 
STORE T TO continue 
DO WHILE continue 
ERASE 
@ 5,60 SAY DATE() 
@ 7,5 SAY title 
@ 10,5 SAY "Enter duty code" GET mcode PICTURE "99" 
@ 12,5 SAY "Press ’ENTER’ to exit’ 


READ 
IF $(mcode,1,1) = ° 
USE 
* If the user has already made deletions store the number 
* of deletions in the file TEMPOR, record the changes and 
* return to SUBMENUI, otherwise just return. 
IF count <> O 
SELECT SECONDARY 
USE tempor 
REPLACE counter WITH count 
USE 
DO monitr 
ENDIF 
RETURN 
ENDIF 
* Search DUTIES file for the duty code. If the record does not 
* exist, print an error message and give another chance, other- 
* wise display the record and let the user confirm the deletion 


FIND &mcode 
IF # = O 
7. CHC? ) 
@ 22,5 SAY “The record does not exist, ee again’ 
STORE 1 TO del 
DO WHILE del < 30 
STORE del+i TO del 
ENDDO WHILE 
STORE “ °“ TO mcode 
LOOP 
ELSE 
HRASE 
@ 2,60 SAY DATE() 
@ 3,5 SAY title 
@ 5,5 SAY "Record to be deleted" 
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@ 7,5 SAY “code 
@ 8,5 SAY "name 


@ 15,5 SAY “The record will be deleted. PROCEED ? 


“+code 
"“+name 


STORE count+1 TO count 


2 CHR (7) 
STORE “ " TO answer 
WAIT TO answer 
IF answer = "y" 
DELETE 
PACK 
ENDIF 
ENDIF 
STORE " " TO mcode 


ENDDO WHILE continue 


ue 


(Y/N) ” 


*OOKKKKK PROGRAM DELETE5 *xx*kxkxkxx 
* This program deletes records from FORLANGS file 
ERASE 


SELECT PRIMARY 
USE forlangs INDEX forlangs 


STORE "xxxkxx DELETING RECORDS FROM FORLANGS FILE **xxx*" TO title 


STORE “ "“ TO mccde 
STORE O TO count 
STORE T TO continue 
DO WHILE continue 
ERASE 
@ 5,60 SAY DATE() 
@ 7,5 SAY title 
@ 10,5 SAY “Enter language code" GET mcode PICTURE °99" 
@ 12,5 SAY “Press ’ENTER’ to exit’ 


READ 
[ie s(mecee. 1.1} = 
USE 
* If the user has already made deletions, update the file 
* TEMPOR, record the changes and return to SUBMENU1I, 
* otherwise just return. 
IF count <> Q 
SELECT SECONDARY 
USE tempor 
REPLACE counter WITH count 
USE 
DO monitr 
ENDIF 
RETURN 
ENDIF 
* Search FORLANGS file for the code. If the record does not 
* exist, print an error message and give another chance, 
* otherwise display the record and let the user confirm 
xX the deletion 


FIND &mcode 

[FP #°=80 
CHR 7) 
@ 22,5 SAY “The record does not exist, try again" 
STORE TO del 
DO WHILE del < 30 

STORE del+l1 TO del 

ENDDO WHILE 
STORE " " TO mcecode 
LOOP 

ELSE 
ERASE 
@ 2,60 SAY DATE() 
@O%S,5 SAY “Eitble 
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@ 5,5 SAY "Record to be deleted” 
@ 7,5 SAY “code = "+code 
@ 8,5 SAY “name = "“+name 
? CHR (7 } 
@ 15,5 SAY "The record will be deleted. PROCEED ? (Y/N)" 
STORE " " TO answer 
WAIT TO answer 
IF answer = "“y" 
DELETE 
PACK 
STORE count+1l TO count 
ENDIF 
ENDIF 
STORE " " TO meode 


ENDDO WHILE continue 
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OOO «PROGRAM DELETE6 >oOKKOKKAKx 
* This program deletes records from SCIENCES file 


ERASE 
SELECT PRIMARY 
USE sciences INDEX sciences 
STORE "**xx*x DELETING RECORDS FROM SCIENCES FILE ***xx" TO title 
STORE “ " TO meode 
STORE O TO count 
STORE T TO continue 
DO WHILE continue 
ERASE 
@ 5,60 SAY DATE() 
@ 7,5 SAY title 
@ 10,5 SAY “Enter science code" GET mcode PICTURE "99" 
@ 12,5 SAY “Press ’ENTER’ to exit" 


READ 
If Sitmeede: l,l) =a0 
USE 
*K If the user has already made deletions, update the file 
*K TEMPOR, record the changes and return to SUBMENU1I, 
* otherwise just return. 
IF count <> O 
SELECT SECONDARY 
USE tempor 
REPLACE counter WITH count 
USE 
DO monitr 
ENDIF 
RETURN 
ENDIF 
* Search SCIENCES file for the code. If the record does not 
* exist, print an error message and give another chance, 
* otherwise display the record and let the user confirm 
* the deletion 


FIND &mcode 
IF # =a 
?° CHR(7) 
@ 22,5 SAY "The record does not exist, try again’ 
STORE 1 TO del 
DO WHILE del < 30 
STORE del+i TO del 
ENDDO WHILE 
STORE “ " TO mcode 
OOF 
BLSE 
BERASE 
@ 2,60 SAY DATE() 
@ 3,5 SAY titie 
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@ 5,5 SAY “Record to be deleted" 
@ 7,5 SAY “code = “+code 
@ 8,5 SAY “name = “+name 
?° CHR(7) 
@ 15,5 SAY “The record will be deleted. PROCEED ? (Y/N)" 
STORE " “ TO answer 
WAIT TO answer 
IF answer = "y” 
DELETE 
PACK 
STORE count+1 TO count 
ENDIF 
ENDIF 
STORE “ " TO mcode 


ENDDO WHILE continue 
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3. Modification Pueqrmans 


These programs modify records in the files of the 
database. Since the structure of all the programs is the 
same, we will describe only the program MODIFY1 which makes 
changes in the MASTER file. 

The structure of the program is as follows: 

a. The MASTER file is opened. 

b. An appropriate message is displayed on the 
screen, prompting the user to enter the serial number of 
the officer whose record is to be modified. At this point 
he may exit the program by pressing 'ENTER', either after 
he has made the modifications he wants, or at the beginning, 
without having done anything. In the latter case the pro- 
gram just returns to SUBMENU1. In the former case the pro- 
gram updates the MONITOR file and then returns. Before the 
program exits, it closes the MASTER file. 

c. The MASTER file is searched for the serial 
number. If the record does not exist, the program displays 
an error message, and loops giving another chance. 

d. If the record exists, then the field values are 
stored to temporary memory variables, and the record is 
displayed on the screen. 

e. Now the user can modify any field he wants, by 
moving the cursor and overwriting the existing values. 

f. When he is finished, the old field values are 
replaced by the modified memory variables, and the record 
1s placed back in the file. 
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g. The whole operation continued under the control 
of a WHILE loop, until the user exits. 
The listings of the programs are given in the 


following pages. 
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KKKKKKKK PROGRAM MODIFYL *KKKKKKx 
_* This program modifies records in MASTER file 


ERASE 
SELECT PRIMARY 
USE master INDEX master 
STORE °"*kkxxk MODIFYING RECORDS IN MASTER FILE *xxxx" to TITLE 
STORE O TO count 
STORE T TO continue 
DO WHILE continue 
ERASE 
STORE " " TO mserno 


* Get the serial number 


@ 5,60 SAY DATE() 
@ 7,5 SAY title 
@ 10,5 SAY “Enter serial number” GET mserno PICTURE "9999" 
@ 12,5 SAY "Press ’ENTER’ to exit" 
READ 
IF $(mserne, i) 1) = 
USE 


* Update the TEMPOR file and record the changes 


IF count <> O 
SELECT SECONDARY 
USE tempor 
REPLACE counter WITH count 
USE 
DO" ment tr 

ENDIF 

RETURN 

ENDIF 


* Look up MASTER file for the serial number 


FIND &mserno 
Ih #=0 
2 CHRC7)) 
@ 22,10 SAY “The record does not exist, try again’ 
SET TALK OFF 
STORE 1 TO del 
DO WHILE del < 30 
STORE del+i1 TO del 
ENDDO WHILE 
LOOP 
ENDIF 


* Store current field values to temporary memory variables 


STORE name TO mname 
STORE rank TO mrank 
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STORE 
STORE 
STORE 
STORE 
» TORE 
» TORE 
STORE 
» TORE 
STORE 
STORE 
STORE 


unit TO munit 
serentry TO mserentry 
reptdate TO mreptdate 
duty TO mduty 

educat TO meducat 
degree TO mdegree 
forlang TO mforlang 
marstat TO mmarstat 
children TO mchildren 
address TO maddress 
Phone TO mphone 


Display the record and get the new field values 


ERASE 
@ 1,60 SAY DATE() 
@ 2,5 SAY title 
@ 4,5 SAY "Serial number = “+mserno 
@ 6,5 SAY "“Serno ' GET mserno 
@ 7,5 SAY “Name ' GET mname 
@ 8,5 SAY “Rank ' GET mrank 
@ 9,5 SAY “Unit GE munit ” 
@ 10,5 SAY “Serentry" GET mserentry 
@ 11,5 SAY "“Reptdate’" GET mreptdate 
@ 12,5 SAY “Duty " GET mduty 
@ 13,5 SAY “Educat ' GET meducat 
@ 14,5 SAY “Degree ' GET mdegree 
@ 15,5 SAY "Forlang " GET mforlang 
@ 16,5 SAY “Marstat " GET mmarstat 
@ 17,5 SAY "Children" GET mchildren 
@ 18,5 SAY “Address " GET maddress 
@ 19,5 SAY "Phone ' GET mphone 
READ 

kK Replace old values with new values and put the record 

* back in the file 
REPLACE serno WITH mserno 
REPLACE name WITH mname 
REPLACE rank WITH mrank 
REPLACE unit WITH munit 
REPLACE serentry WITH mserentry 
REPLACE reptdate WITH mreptdate 
REPLACE duty WITH mduty 
REPLACE educat WITH meducat 
REPLACE degree WITH mdegree 
REPLACE forlang WITH mforlang 
REPLACE marstat WITH mmarstat 
REPLACE children WITH mchildren 
REPLACE address WITH maddress 
REPLACE phone WITH mphone 


STORE count+1l TO count 
BENDDO WHILE continue 
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koOKKK PROGRAM MODIFY2 -OOKKOKxK 
* This program modifies records in UNITS file 


ERASE 
SELECT PRIMARY 
USE units INDEX units 
STORE "*xxxkx MODIFYING RECORDS IN UNITS FILE ***xx" TO tittle 
STORE O TO count 
STORE T TO continue 
DO WHILE continue 
ERASE 
STORE ~ " TO mecode 


*x Get the unit code 


@ 5,60 SAY DATE() 

@ 7,5 SAY tittle 

@ 10,5 SAY “Enter unit code" GET mcode PICTURE "9999" 
@ 12,5 SAY "Press ’ENTER’ to exit’ 


READ 
IF $(mcode,1,1) = " 
USE 
* Update file TEMPOR and record the changes 


IF count <> 0 
SELECT SECONDARY 
USE tempor 
REPLACE counter WITH count 
USE 
DO monitr 

ENDIF 

RETURN 

ENDIF 


x Look up UNITS file for the code 


FIND &mcode 
LF #26 
a Gielen Ye) 
@ 22,10 SAY "The record does not exist, try again’ 
SET TALK OFF 
STORE 1 TO del 
DO WHILE del < 30 
STORE del+1 TO del 
ENDDO WHILE 


*K Store current field values to temporary memory variables 


STORE titele TO mtitle 
STORE location TO mlocation 
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* Display the 


ERASE 
3,60 
5,9 
8,5 
10,5 
a1 4 
f2; 9 
READ 


© © @ @ ®@ @ 


x Replace 
* back in 


REPLACE 
REPLACE 
REPLACE 


SAY 
SAY 
SAY 
SAY 
SAY 
SAY 


old 
the 


record and get the new field values 


DATE( ) 

tLESLE 

“Unit code = "+mcode 
“Code “ GET mcode 
“Title " GET mtitle 
“Location “ GET mlocation 


values with new values and put the record 
file 


code WITH mcode 

title WITH mtitle 

location WITH mlocation 
STORE count+l TO count 

ENDDO WHILE continue 
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qKKKKKKK PROGRAM MODIFY3 **kkkkKkx 
x This program modifies records in RANKS file 


ERASE 
SELECT PRIMARY 
USE ranks INDEX ranks 
STORE "X*x**kx MODIFYING RECORDS IN RANKS FILE **x*xx" to TITLE 
STORE O TO count 
STORE T TO continue 
DO WHILE continue 
ERASE 
STORE " “ TO mcode 


x Get the rank code 


@ 5,60 SAY DATE() 
@ 7,5 SAY title 
@ 10,5 SAY "Enter rank code" GET mcecode PICTURE "99" 
@ 12,5 SAY "Press ’ENTER’ to exit’ 
READ 
IF $(mcecode,1,1) = " 
USE 


* Monitor changes 


IF count <> O 
SELECT SECONDARY 
USE tempor 
REPLACE counter WITH count 
USE 
DO monitr 

ENDIF 

RETURN 

ENDIF 


* Search RANKS file for the code 


FIND &mcode 
IF #=0 
? CHRC?) 
@ 22,10 SAY “The record does not exist, try again’ 
SET TALK OFF 
STORE 1 TO del 
DO WHILE del < 30 
STORE del+1 TO del 
ENDDO WHILE 


x Store current field values to temporary memory variables 


STORE armyname TO marmyname 
STORE navyname TO mnavyname 
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* Display the record and get the new values 


ERASE 

@ 3,60 SAY DATE() 

@ 5,5 SAY title 

@ 10,5 SAY "Rank code = "+mcode 

@ 12,5 SAY "Code “ GET mcode 

@ 13,5 SAY “Armyname" GET marmyname 
@ 14,5 SAY “Navyname" GET mnavyname 
READ 


* Replace old values with new values and put the record 
* back in the file 


REPLACE code WITH mcode 
REPLACE armyname WITH marmyname 
REPLACE navyname WITH mnavyname 
STORE count+l TO count 

ENDDO WHILE continue 
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KKKKKKK PROGRAM MODIFY4 **KK**** 
* This program modifies records in DUTIES file 


ERASE 
SELECT PRIMARY 
USE duties INDEX duties 
STORE "“***** MODIFYING RECORDS IN DUTIES FILE **x*x*x" TO title 
STORE O TO count 
STORE T TO continue 
DO WHILE continue 
ERASE 
STORE " " TO mcode 


* Get the duty code 


@ 5,60 SAY DATE() 
@ 7,5 SAY title 
@ 10,5 SAY "Enter duty code” GET meode PICTURE "99" 
@ 12,5 SAY "Press ’ENTER’ to exit’ 
READ 
lk $@mcode, 1,1) = ~ 
USE 


* Monitor changes 


IF eounta 20 
SELECT SECONDARY 
USE tempor 
REPLACE counter WITH count 
USE 
DO monitr 

ENDIF 

RETURN 

ENDIF 


* Search DUTIES file for the code 


FIND &mcode 
IF #=0 
2 CHe) 
@ 22,10 SAY "The record does not exist, try again’ 
SET TALK OFF 
STORE 1 TO del 
DO WHILE del < 30 
STORE del+l1 TO del 
ENDDO WHILE 
LOOP 
ENDIF 


* $tore current field values to temporary memory variables 


STORE name TO mname 
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x Display the record and get the new field values 


ERASE 

@ 3,60 SAY DATE() 

@ 4,5 SAY title 

@ 7,5 SAY “Duty code = “+mcode 
@ 9,5 SAY “code " GET mcode 

@ 10,5 SAY “name " GET mname 
READ 


* Replace old values with new values and put the record 
* back in the file 


REPLACE code WITH mcode 

REPLACE name WITH mname 

STORE count+1 TO count 
ENDDO WHILE continue 
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KKKKKKKK PROGRAM MODIFYS **kx*xxx 
* This program modifies records in FORLANGS file 


ERASE 
SELECT PRIMARY 
USE forlangs INDEX forlangs 
STORE "x*kX***X MODIFYING RECORDS IN FORLANGS FILE **xxx" TO title 
STORE O TO count 
STORE T TO continue 
DO WHILE continue 
ERASE 
STORE "“ “" TO mcode 


* Get the foreign language code 


@ 5,60 SAY DATE() 
@e7,.5 SAY title 
@ 10,5 SAY “Enter language code" GET mcode PICTURE "99" 
@ 12,5 SAY “Fress’ “ENTER GGo exic 
READ 
IF $(mcode,1,1) = " 
USE 


* Monitor changes 


IF count <> O 
SELECT SECONDARY 
USE tempor 
REPLACE counter WITH count 
USE 
DO monice 

ENDIF 

RETURN 

ENDIF 


* Search FORLANGS file for the code 


FIND &mcode 
[Fk #26 
? CHRC7) 
@ 22,10 SAY "The record does not exist, try again" 
SET TALK OFF 
STORE 1 TO del 
DO WHILE del < 390 
STORE del+i TO del 
ENDDO WHILE 
LOOP 
ENDIF 


x Store current field values to temporary memory variables 


STORE name TO mname 
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* Display the record and get the new field values 


ERASE 

@ 3,60 SAY DATE() 

@ 4,5 Sar citle 

@ 7,5 SAY “Code number = “+mcode 
@ 9,5 SAY “code "“ GET mcode 

@ 10,5 SAY “name " GET mname 
READ 


* Replace old values with new values and put the record 
* back in the file 


REPLACE code WITH mcode 

REPLACE name WITH mname 

STORE count+1 TO count 
ENDDO WHILE continue 
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KKKKKKKK PROGRAM MODIFY6 *KKKKKKX 
* This program modifies records in SCIENCES file 


ERASE 
SELECT PRIMARY 
USE sciences INDEX sciences 
STORE "“*kKkkxkK MODIFYING RECORDS IN SCIENCES FILE *x*xxx " TO title 
STORE O TO count 
STORE T TO continue 
DO WHILE continue 
ERASE 
STORE "“ “ TO mecode 


* Get the science code 


@ 5,60 SAY DATE() 
@ 7,5 SAY title 
@ 10,5 SAY "Enter code number" GET mcode PICTURE "99" 
@ 12,5 SAY "Press ’ENTER’ to exit’ 
READ 
If $(meede,1,1) = 
USE 


* Monitor changes 


IF count <> O 
SELECT SECONDARY 
USE tempor 
REPLACE counter WITH count 
USE 
DO monitr 

ENDIF 

RETURN 

BNDIF 


* Search SCIENCES file for the code 


FIND &mcode 
IF #=0 
?° CHR(7) 
@ 22,10 SAY "The record does not exist, try again’ 
SET TALK OFF 
STORE 1 TO del 
DO WHILE del < 30 
STORE del+i TO del 
ENDDO WHILE 
LOOP 
ENDIF 


*x* Store current field values to temporary memory variables 


STORE name TO mname 
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* Display the record and get the new field values 


ERASE 

@ 3e6O0 SAY DATE( ) 

@ 4,5 SAY title 

@ 7,5 SAY "Code number = "+mcode 
@ 9,5 SAY “code " GET mcode 

@ 10,5 SAY “name " GET mname 
READ 


* Replace old values with new values and put the record 
*X back in the file 


REPLACE code WITH mcode 

REPLACE name WITH mname 

STORE count+1 TO count 
ENDDO WHILE continue 


oF 


C. REPORT GENERATORS 
These programs permit the user to print all the neces- 
sary reports which must be available to the Commander, in 
order to help him in his decision making. The documentation, 
listing, and output of each program is as follows: 
Po Enocg name ne comer 
This program prints all the officers in alphabetical 
order including name, serial number, rank, the unit he 
belongs, and the report date. 
The program uses the following structure: 
a. The necessary memory variables are initialized 
and the heading of the report 1s printed. 
b. The MASTER file is opened, and is sorted on the 
key ‘name’ to the temporary file TEMP, in ascending order. 
c. The program uses the sorted file TEMP, and exe- 
cutes a WHILE loop to process each record of the file. 
Within the WHILE loop the program performs the following: 
(1) Stores the appropriate field values to the 
corresponding memory variables. 
(2) Searches RANKS and UNITS files and retrieves 
the appropriate rank name and the title of the unit. 
(3) The main line of the output is printed. 
This line includes the data concerning the officer whose 
record 1s being processed. A line counter is kept to control 


Ene Tpaging "OL the oulLout, 
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dad. The program continues with the next record 
until the end of file (EOF) is encountered. 

e. The file TEMP is deleted, and the MONITOR file 
is updated. 

The program listing and output is shown in the next 


pages. 
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oOOKKK PROGRAM REPORTI ***KKKKKx* 


* This program prints all the officers in alphabetical order 
xX including nname, serial number, rank, the unit he belongs 
x and the report date 


ERASE 
x Initialize memory variables 


STORE “LIST OF OFFICERS IN ALPHABETICAL ORDER" TO tittle 
STORE °“sS2S8222552s25=8$S553232s 3332232525255 5 Se eel ee 
STORE 1 TO seqnum 

STORE O TO linecount 


STORE " TO pname 
STORE " TO pserno 

STORE " “ TO preptdate 

STORE ° “ TO rankname 

STORE "  TOr ptt ile 
STORE ~ °° TO@mrank 

STORE " ' TO munis 


SET PRINT ON 


* Print the heading 


oe “+DATE( ) 


>) 
2 "+bittle 

ie se “+underline 
2 
>) 


om ee ee ee eo ee ee es es ee es es es es ee ee es ee es es es es ee es es es ee es es ee es es es ee es ee ees ee ee ee i 


ey " | SEQE | NAME | SERL#; RANK | 
22 USN | REPTDATE ;° 


Oo OC, Be ees ee ee os 


STORE linecount+9 TO linecount 
SELECT PRIMARY 
USE master 


* Sort MASTER file in alphabetical order of the officers’ 
*K names into the temporary file TEMP, and use this file 
* for the database processing 


SORT ON name TO temp ASCENDING 
USE temp 
DO WHILE .NOT. EOF 
STORE name TO pname 
STORE serno TO pserno 
OTORE reptdate TO preptdate 
STORE rank TO mrank 
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SuOrs, Unit TO munit 


* Search RANKS file with key the field ’rank’ of the 
* officer’s records and get the appropriate rank name. 


SELECT SECONDARY 
USE ranks INDEX ranks 
FIND &mrank 
Pepe Unit, 2,1) = “1" 

STORE armyname TO rankname 
ELSE 

STORE navyname TO rankname 
ENDIF 


* Find the unit the officer belongs, and get the title 
xX of the unit 


USE units INDEX units 
FIND &munit 
STORE title TO ptitle 


* If the line counter exceeds 53, continue in the next page. 
IF linecount > 53 
Eger 
STORE O TO linecount 
ENDIF 


* Print the data concerning the officer 


4 ae ! ae 
oo oe os 

? "!'"+STR(seqnun, 3) 

°°? “; “+pname 

oe? "'| “+pserno 

Po "' “+rankname 

coy imeeerotL ible 

2 ve 


“+$(preptdate,1,2)+"/"+$(preptdate,3,2)+'"/"; 
+$(preptdate,5,2)+° {° 

STORE seqnum+1 TO seqnum 

STORE linecount+2 TO linecount 


»o TORE “ TO pname 
STORE “ “ TO pserno 

So ORE.” “ TO rankname 

> ORE " TO ptitle 
STORE " “" TO preptdate 
STORE “ " TO mrank 

SORE wo Minit 


* Continue with the next record 


SELECT PRIMARY 
SNC e 
ENDDO WHILE .NOT. EOF 
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* Update MONITOR file, delete file TEMP and return 


DO monitr 
DELETE FILE temp. DBF 
RETURN 


REPTDATE 


12/01/85 


Janet 7 


SERL#; RANK 


LIST OF OFFICERS IN ALPHABETICAL ORDER 


NAME 


i SEQ# | 
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This program prints all the officers ordered by rank, 
and within the rank by unit, including name, unit, and duty. 

The structure of the program is as follows: 

a. The necessary memory variables are initialized 
and the main heading of the list is printed. 

b. We create a copy of the MASTER file into file 
TEMP, which includes only the fields necessary to obtain the 
Oourput. 

¢c. Since dBASE II cannot sort a file on more than 
one key at the same time, we do two consecutive sorts. The 
first one is done on the minor key ‘'unit', and the second one 
on the major key 'rank'. For the purpose of these sorts we 
use the temporary files TEMP1 and TEMP2 besides TEMP. 

d. Using the file TEMP2 which is double sorted on 
the desired keys, the program performs a WHILE loop to process 
this file, with the following major functions: 

(1) The field "rank" and the first character 
of the unit code are compared to the memory variables 'mrank' 
and 'funit' respectively. If either comparison yields a 
'false' value this means that an officer of the different 
rank or different service has been encountered. The value 
Seewcme ticeldad ‘rank’, and the first character of the unit 
code, are stored to the above memory variables, in order to 
be ready for the next comparison. Then the heading of the 


new rank is printed. 


LO? 


(2) The current field values are stored to the 
corresponding memory variables. 
(3) The appropriate unit tertile, wandeqwe, woane 
are retrieved from the files UNITS and DUTIES respectively. 
(4) The main line of the output is printed, and 
the program proceeds to the next record. 
e. The MONITOR file is updated, all the temporary 
files are deleted, and then the program returns to SUBMENU2. 
The listing and output of the program are shown in 


the next pages. 
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4 KKKCKK = PROGRAM REPORT2 + kKOKKK 


* This program prints all the officers ordered by rank 
* and unit number including name, unit and duty. 


ERASE 
* Initialize memory variables 


STORE O TO linecount 


STORE “ TO pname 

STORE " " TO funit 

STORE “ " TO mrank 

SEORH " “ TO munit 

STORE “ “ TO punit 

STORE “ °° TO mduty 

STORE " “ TO pduty 

STORE T TO maintitle 

= ee SS SS SS SS = SS" TO lLinel 
nC = ee ee ee ee eee" TO lane? 


STORE [OCC CCC AACA" =§=TO line3 
STORE “CCCCCCOAAKKKKKKKKKKKKK' TO lined 


* Print the heading 
SET PRINT ON 

> M 

ae "+DATE( ) 


& 

PP 8 ee eee 

os LIST OF OFFICERS ORDERED BY RANK" 
: o= s5>55> Serr 
? line3+line4d 

2 “XSEQF | NAME Coe 1. 

woe UF T Y a 


?° line3t+lined 
STORE linecount+8 TO linecount 


Create a copy of the MASTER file into TEMP including only 
the appropriate fields and sort TEMP file on the minor key 
-unit’ first into TEMP1 and then use TEMP1 to sort the file 
on the major key ’rank’ into TEMP2 


Cy GA a a SOT 49 


Sijeiecr PRIMARY 

USE master 

COPY TO temp FIELD serno, name, rank, unit, duty 
USE temp 

SORT ON unit TO templ 

USE templ 

SORT ON rank TO temp2 

USE temp2 

DOS wrnok .NOT. EOF 


Pog 


* 
* 


If a new rank or an officer of a different service 
is encountered print the rank heading 


IF rank <> mrank .OR. $(unit,1,1) <> funit 


STORE rank TO mrank 


STORE $(unit,1,1) TO funit 


STORE 1 TO seqno 
STORE T TO flag 
fe 


2 


STORE MlinecountomTOmimee atar: 


IF linecount > 53 


PIECE 

STORE O TO linecount 
ENDIF 
DO CASE 

CASE rank = "01" 


IF $@init, 177)" = 
? linel+line2 


2 
? linel+line2 
ELSE 
? linel+line2 
Sok 
? linei+line2 
ENDIF 
CASE rank = "02" 


TF <$Cunit,; b= 
? linei+line2 


So 
? linel+line2 
RLSe 
? linel+line2 
usr 
?° linel+line2 
ENDIF 
CASE Tanke 9703) 


IF $(tinie, 1,1) = 
? linei+line2 


2 
? linei+line2 
ELSE 
? linel+line2 
at 
| ? linel+line2 
ENDIF 
CASE rank = "04" 


(00 Ss CUlem rs alle) a— 
? Llinelt+line2 
oO 

? lineli+line2 
ELSE 


? Jlinel+line2 
cp os 


qe 
GENERALS 
ADMIRALS 
“40 
ee GENERALS’ 
VICE AD Mo 1 "Agitce 
“qe 
MAJ GENERAL 5" 
ROE VAT ADMIRAL 5" 
wy 
B le iG GENERAL S°* 


COMMODORE S'" 


10 


? linel+line2 
ENDIF 


CASE rank = "Q5" 


Pep ound, 1) = ~ 


? linel+line2 
>] oe 

? linel+line2 
ELSE 
? linel+line2 


>) 
?° linel+line2 
ENDIF 
CASE rank = "06" 


ihees (unit, ale) San 


?° lineltline2 
o> oe 

? linelt+line2 
ELSE 
? linel+line2 
o « 

? linel+line2 
ENDIF 


CASE rank = "Q7" 


Te SiGe, 1,1) =. 


? linel+line2 
>) oe 


? linel+line2 
Bion 
”° linel+line2 
>] on 

? linel+line2 
ENDIF 


CASE rank = "Q8" 


teh uit) ly lead e S 


?° linelt+line2 
a" 

? lineltline2 
ELSE 
? linel+line2 


° 
? linel+line2 
ENDIF 
CASE rank = ‘OQ9” 
? linel+line2 
Oo" 
? linel+line2 
CASE rank = "10" 


ep Unit. 1, Leer: 


? linelt+line2 
ou 

? linel+line2 
ELSE 


? linel+line2 
ees 


That at 


L 


L 


i 


COFbeO ThE L 5” 


Caepelee i N 5S” 


It CO is OSNe ane.) 


ClOeMeM A Nv BEE so. 


MAJORS" 


COMMANDER S' 


CAP TAIN 5S 


feted TOR N AUN ss. 


ft oi Lt wh User BN Aen 2 Ss” 


Pod ial & UT EN AN T 8S” 


ito GN 7S 


? linel+line2 
ENDIF 
OTHERWISE 
ERASE 
STORE F TO flag 
7 PCH 7) s 
@ 10,10 SAY “ILLEGAL RANK CODE ENCOUNTERED IN RECORD" 
@ 12,10 SAY ” WITH SERIAL NUMBER "“+serno 
STORE 1 TO del 
DO WHILE del < 50 
STORE del+i To del 
ENDDO WHILE 
ENDCASE 
IF flag 
STORE linecount+3 TO linecount 
ENDIF 
ENDIF 


* Store field values to temporary memory variables 


STORE name TO pname 
STORE unit TO munit 
STORE duty TO mduty 
SELECT SECONDARY 

USE units INDEX units 


* Find and retrieve the unit title from UNITS file 


FIND &munit 
IF # <> O 
STORE title TO punit 
ELSE 
ERASE 
FeO SNgAt FA) 
@ 9,9 SAY “Record with key "+munit+" in UNITS file not found’ 
STORE 1 TO del 
DO WHILE del < 50 
STORE del+i TO del 
ENDDO WHILE 
ENDIF 


* Find and retrieve the duty name from DUTIES file 


USE duties INDEX duties 
FIND &mduty 
IF # <> O 
STORE name TO pduty 
ELSE 
ERASE 
° CHR GY) 
@ 9,9 SAY “Record with key °“+mduty+"” in DUTIES file not found’ 
STORE 1 TO del 
DO WHILE del < 50 
STORE del+i TO del 


eae 


ENDDO WHILE 
ENDIF 


x Print the main line 


IF linecount > 53 


BuectT 
STORE O TO linecount 
ENDIF 
? i | : 
lara ae 
fc “'t'“+STR(seqno, 3) 
2? "! “toname 
ae | | + 
Ce ' “Soautyr |" 


ane lanéceuiit+2 TO 1ine@eeunt 
STORE seqno+l TO seqno 


* Continue with the next record 


SELECT PRIMARY 
Sel P 
ENDDO WHILE .NOT. EOF 


* Update the MONITOR file and delete the temporary files 


DO monitr 

DELETE FILE temp. DBF 
DELETE FILE temp1. DBF 
DELETE FILE temp2. DBF 
RETURN 


Mh 


ia OL/ SS 


cme cm cc ec ce ce ce ce ec cm ce ee cc ee 
— oe eee cee cee ee ee ee es ee es es es ee es es ee ees es es es es es ee es ee es es eo ee ee 


KOKO ICICI ICICI III III ICICI OK ICICI IK IK AK OK AKA OK >K 


KSEQHE | NAME USN DU * 
COCCI IKK ACCC CK ZACK KICK CK CK 


eth A A ee tir ti Ti een ees i me ti i I I ee ee ee Ee Eee 
ce es ee ee ee es es es ee es es es es ce es ees ee es ee es es es es es es es ee es es es es es es es es es es es cs cs cs co ws eo 


— cme eee es es ee es es es es es ee es ee ee es es ee es es es ee es es es es ee es es es es es ce es ce es es ce ee ee ee ee ee ees ee es ees ees es es ees es es es es ee ee 
— oe cme ome cee cee come cme cee ee cee oe ee ce ce ee ee ee ee es ee es ee ee es ee es ee ee ee es ee ee ee ee ee ee ee es es es es es ee es es es ee es es es ee ees ee ee ee ee ee ee ee oe 


— ce ce ce ee ce ce ce es ce ec ce es es ce ce ec cs ce ce ce ce ce ce ce ce cc es ce ew ee wi ie 
A I rc Er Re EE el es 


— eee ee ee ce es es ee es es ce ee es es es es es ce cc cc ce cm cr ce ct cm ce ccc cmc cc cm crm ce ccs ce ce cc ec ee ee oe 
A cc ee ce cc ce er ce ce cr ec ec ee ee ec ee 


el A A DT ee ee Se eT ee ee ee ee ee 
ces ei ee eee ee ee ee ee es ee es es es es ee es es es es es es es es ee es es es es es es es es es es es es ce oe ie a 


ete i AA A I I I nd 
ce cy ce ee eee ce es ss es ce es es ee cs es es cs ce we ec ce ec ee is ee 


Sc el 
A I i i i re i i i ee A 


coc ce cee crc crm cre cmc cm cr crm cm ec crm cs cms cc ct i i ee cee ee cee ee ee 
ee ce es ce ee es ee ce ce ce cc ce cc cmc ccm cm mr ct ee cee cm ce i es es ee es ee es ce ce ee es es ee ee ieee 


<tc cee eee ee ee es ec ce ee ee es es es es ce ce ce ce cc cr cee ee ee 
— me oe ee oe ees ee es es es es es ee es es es es es es cs cs cc cr cr cc cr cc ce ee ee ee es es es es ee es es es es es es es ees es ee ee ee ee 


i A I i i i i rr i re ed 


; 
| 1 3 Odello Bruno A : DD Squadron | Commander | 
| Zs ! Potter Tom E ! LST Squadron ! Commander 1 
Meelis sly 
COTS TlTll: =. 8 # = =, 
3 1 | Koom Peter H : ist Inf Div : lst Office Manager , 
| 2! Karras Mike L ! 1st Inf Div | 2nd Office Manager | 
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3rd Office Manager 
4th Office Manager 
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2nd Arty Bn | Commander 


H 


Bai 


Se ee ee 


Commander 


Armour Bn 


12 | Sanders James F 


Engineers Bn ; Commander 


Scott Paul V 


5. 


eH 


= wwe THe wwe Tw eee Fe ew es i i i ee ee a ee 


Commander 


Signals Bn 


ff | fumenmer “Carlos B 
{ 


Commander 


SuUp/ lsans Bn 


A 


Alex 


' Torres 


15 
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DD Miaoulis ' Commanding Officer 
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| Commanding Officer 


LST Rhodes 


K 


MAJORS 


meee eee eee ie 


Dty Commander 
Dty Commander 
Dty Commander 
Dty Commander 


ist Inf Bn 
2nd bh 
seperate Mae Bye) 
4th Inf Bn 


J 
H 
Frank M 
E 


Roy 
Jae 
John 


Emery 
Dorey 
Durran 
Dalton 


1 
7A 
3 
~ 


ee ee 


1 Ee) 


| | 
| o | Crosby Jerry Jd | ist Arty Bn 3 Dty Commander : 
| 6 | Cook Ryan K | Armour Bn | Dty Commander | 
| 7 | gellar sc Frank E | Engineers Bn ! Dty Commander | 
: 8 ! Clark Tom L . Signals Bn ) Dty Commander ! 
<li LT ¢ OUMMUANEDtE nomen | seer 
Ta SSS ea 0 a 
| 1 | Rivera Mario L | DD Miaoulis ! Executive Officer : 
! 2 | Ross Allan J | DD kanaris | Executive Officer | 
: 3 | Spencer Tim M | DD Themis 3 Executive Officer : 
' 4 | Stanley Cris kK | LST Argo | Executive Officer | 
————S CAPTAING . 
! 1 : Byron romatay Lt | TSipe int Sea : Company Commander ! 
| 2 | Pouce Mark P : sion Mraagiaeyal | Company Commander ! 
| 3 | Brown Peter R : lst Inf Bn | Company Commander | 
! 4 | Allen David £ ! 2nd Inf Bn | Company Commander | 
| 3 | Adams Garky J : “AGL gag Vela | Company Commander ! 
! 6 : Horan Revin 1 | Pyare Weve lei at | Company Commander | 
: 7 | Hogan Joe K | 3rd Inf Bn : Company Commander : 
| 8 : Jackson even —M 3 3rd Inf Bn | Company Commander ! 
| g | Jensen Ron Ig | 3rd Inf Bn | Company Commander : 
! 10 Ingals Tomas R ! 4th Inf Bn ! Company Commander : 
| Hal | Warren Geo M | 4th Inf Bn : Company Commander | 
: LA : Watson Ralph OD | 4th Inf Bn 3 Company Commander | 
: 13 ! Waters Gary I : 5th Inf Bn 3 Company Commander | 
! 14 ! Victor David R ! Spool hee Jaa ! Company Commander ! 


IAL: 


: 15 ! Vongel Mark E 3 Seheelan. Bn : Company Commander : 
| 16 | iiimans Rola G : lst Arty Bn 7 Battery Commander | 
| i : Ulrey Dan A : lst Arty Bn | Battery Commander ! 
| 18 3 Manos John K : 1st Arty Bn | Battery Commander | 
| 19 ! Moore Roger L : end Arty Bn | Battery Commander | 
| 20 | Morton Brian C | end Arty Bn : Battery Commander ! 
| cl : Morris Roy K : 2nd Arty Bn ) Battery Commander | 
| Ge 3 Lopez Tom L ! Armour Bn | Company Commander ! 
: 23 | Layton John Ei : Armour Bn : Company Commander | 
| 24 | Larson Roger K : Armour Bn | Company Commander : 
| 25 Larsen Allen A ! Engineers Bn | Company Commander | 
7 26 3 Gorby Glen G : Engineers Bn | Company Commander | 
! a7 ! Gordon Jerry W | Engineers Bn | Company Commander ! 
! 28 | Good John L | Signals Bn : Company Commander : 
| 2g | Gilman Perry M | Signals Bn : Company Commander | 
| 30 : Garret Rex D 3 Signals Bn : Company Commander , 
| 31 | Freeman Jim E , sup/Trans Bn | Company Commander | 
| 32 | hevetel Roger A 3 sup/Trans Bn | Company Commander , 
: 215) ! Roster Kiliff J 1 Sup/Trans Bn ! Company Commander ! 
a )—6 LULL LT kMANTS  - — 
| il | Boris Peter 4H DD Miaoulis : ASW Officer | 
} 2 | Ganos Jim A | DD Miaoulis | Navigation Officer | 
| 3 | Takas Costas L | DD Miaoulis | Commun/tion Officer | 
| 4 3 Zikas Tom J | DD Miaoulis 3 CIC Officer | 
| 5 | Kontos David K ! DD kanaris | ASW Officer | 
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Don 


Peter 
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LST Rhodes 
LST Rhodes 


Tig 


Commun/tion Officer 


Grueeorri1cer 


a2 Program Report3 


This program prints all the units and the officers 
who belong to a particular unit, including eaanc ys sania 
duty. 

The structure of the program is as follows: 

a. The necessary memory variables are initialized 
and the headlines are printed. 

b. A copy of the MASTER file is created which in- 
cludes the fields, serial number, name, rank, unit, and duty. 
This file then is sorted by unit, and within the unit by rank. 

c. The above finally sorted file, is processed 


sequentially within a WHILE loop, whose function is the 


following: 

(1) The field 'unit' is compared to the field 
‘unit' of the previous record. If they are not equal, this 
means that a new unit has been encountered. Then the program 


prints the title and location of LEnewunaee. 
(2) The rank and duty names are retrieved from 
the corresponding files, and the main line of the output 
1s printed. 
(3) The program proceeds with the next record. 
dad. Before the program returns, it updates the MONITOR 
file, and deletes the temporary files. 
The listings and the output of the program are shown 


in the next pages. 


il 7410) 


*KKKKKKK PROGRAM REPORT3 ***kKKKX 


x This program prints all the units with their 
x officers, including name, rank, and duty 


ERASE 
x Initialize memory variables 


STORE O TO linecount 


STORE “ TO pname 
STORE “ " TO mrank 

STORE “ “ TO prank 

Seeonk = TO mduty 

STORE " lO mpaliity 
SHORE * “ TO munit 

STORE " PTO 7 punit 

STORE " " TO plocat 


STORE 1 TO seqnum 

STORE [KKK KKK KKK KOK KKK KKK KOK KKK KKK K#KKKKEKK' TO linel 

STORE ° KKKK KKK KKK KK KK KKK KKKKKKK' UOTO Line2 

ile eee ee ee os oe ee es ae eS eae eee" TO lines 


* Print the heading 


SET PRINT ON 


& 

°° DATE) 

fy 

29 === , 

% . isle ORSINI TS Withethk ik Obl TCERS. 
? ca Bae ee ae ee SS SS SS SS SS SS SSS SS SS 
i 

? linel+linez2 

% “ KSEQHF | NAME | RANK ;" 

Par ee ly *" 


? linei+linez2 
STORE linecount+8 TO linecount 


* Create a copy of the MASTER file into TEMP including 
* only the necessary fields and sort TEMP file on 
* ascending keys ’unit’ and ’ rank’ 


SELECT PRIMARY 

USE master 

COPY TO temp FIELD serno, name, rank, unit,duty 
USE temp 

SORT ON rank TO tempi 

USE templ 

SORT ON unit TO temp2 

USE temp2 

DO WHILE .NOT. EOF 
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* If the current unit is different than the previous 
* one print the unit heading 


IF unit <> munit 
STORE unit TO munit 
STORE 1 TO seqnum 
IF linecount > 53 
Rotem 
STORE O TO linecount 
ENDIF 
> 


> 


STORE linecount+2 TO linecount 
IF linecount > 53 
EJECT 
STORE O TO linecount 
ENDIF 
SELECT SECONDARY 
USE units INDEX units 
FIND &munit 
= i 


“+line3 
? UNIT: "“+title+" LOCATION: "+location 
te Zi "+line3 
STORE linecount+3 TO linecount 


ENDIF 
SELECT PRIMARY 


* Store current field values to memory variables 


STORE name TO pname 
STORE rank TO mrank 
STORE duty TO mduty 


* Retrieve rank and duty names 


SELECT SECONDARY 
USE ranks INDEX ranks 
FIND &mrank 
IF SECp. uUnat. te ol y= e 
STORE armyname TO prank 
ELSE 
STORE navyname TO prank 
ENDIF 
USE duties INDEX duties 
FIND &mduty 
STORE name TO pduty 


* Print the main line 


IF linecount > 53 

JV OAK 

STORE O TO linecount 
ENDIF 
oP 


phe ' ' eed 
' ' ' U 


MA 


<P < ae y ts 


I 
te “!"+STR(seqnum, 3) 
7? “!| “+oname 
2? " ' “+tnorank 
Pe "1 “tndutyt" Vey 


STORE linecount+2 TO linecount 
STORE seqnum+l TO seqnum 


* Continue with the next record 


SELECT PRIMARY 
OKIP 
ENDDO WHILE .NOT. EOF 


* Update the MONITOR file and delete 
* the temporary files 


mo monitr 

DELETE FILE temp. DBF 
DELETE FILE temp1. DBF 
DELETE FILE temp2. DBF 
RETURN 
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] ! 1 1 I 
' 2 | Kane Bob R ! BG ' Dty Commander ; 
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| 4 | Koom Petes H ! LTC | ist Office Manager 
' 5 ! Karras Mike L ! LTC ! 2nd Office Manager 
) (bee pe rrk Bure N ! LTC | 3rd Office Manager 
7 | Olsen Joe N {| LTC |] 4th Office Manager ; 
UNIT: ist Inf Bn LOCATION: Monterey 
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] | | 1 i 
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| | oe ay ron Larry M j; CPT | Company Commander 
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' oO +; Brown Peter R |; CPT |; Company Commander : 
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UNIT: 2nd Inf Bn LOCATION: Carmel 
1 |; Kueny Jenn S | LTC | Commander 
2 | Dorey Jim H | MAJ ee Dee Commander ; 
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ae Program Report4 


This program prints all the officers who have been 
awarded a degree in the sciences with an emphasis other than 
military sciences. This list includes name, rank, science, 
and degree, and is sorted by name. 

The structure of the program is as follows: 

a. The necessary memory variables are initialized 
and the heading of the report is printed. 

b. The program uses two temporary files, TEMP1 and 
TEMP2. The MASTER file is used to create a copy into TEMP1, 
which includes only the necessary fields, serial number, 
name, rank, education, and degree. Only the officers whose 
the field ‘educat' is not empty are copied. Then the file 
TEMP1 is sorted on key ‘name’ into the file TEMP2. 

c. Then the program performs a WHILE loop to process 
each record of the file. More specifically within the WHILE 
loop it, pertorms. the fo Plowing. 

(1) Stores the current field values to the 
temporary memory variables. 

(2) Retrieves from RANKS and SCIENCES files the 
appropriate rank name and science name respectively. 

(3) A CASE statement is executed to store the 
appropriate degree to the corresponding variable. 

(4) The main line of the output is printed. 

d. The program proceeds with the next record until 


the end of file (EOF) is encountered. 
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e. Before the program returns it deletes the 
temporary files TEMP1 and TEMP2, and updates MONITOR file. 
The listing and output of the programs are shown in 


the next pages. 


2) 


KKKKKKKK PROGRAM REPORT4 **KKKKKK 


* This program prints all the officers in alphabetical order 
Kk who have been awarded a degree in sciences other than 
KX military ones 


ERASE 
x Initialize memory variables 


STORE "LIST OF OFFICERS WITH NON-MILITARY STUDIES" TO title 
STORE “s3xxrsS22222=SS=S=]S2S2SSSSS2s22=]—— = = = = = Gl eee 
STORE 1 TO seqnum 

STORE 0 TO linecount 


STORE " TO pname 
STORE " “ TO mscience 
STORE "“ “" TO meducat 

STORE " " TO pdegree 

STORE “ “ TO mrank 


KX Print the list heading 
SET PRINT ON 


i “+DATE( ) 


>) 
°? “+title 

Se i “+underline 
>) 
>] 


cc cc ce ce ee es es eee es ee ee ee eee i 


a " | SEQE | NAME | RANK | SCIENCE 
22° | DEGREE 


PP ' — ————— ——-—-— — — : 
STORE linecount+9 TO linecount 


* Copy to temporary file TEMP1 those officers whose field 
KX ’educat’is not empty and only the necessary fields, 
* and then sort this file by name into file TEMP2 


SELECT PRIMARY 

USE master 

COPY TO tempi FIELD serno, name, rank, educat,degree; 
FOR educat <> " 

USE templ 

SORT ON name TO temp2 ASCENDING 

USE temp2 

DO WHILE .NOT. EOF 


K Store current field values to memory variables 
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STORE name TO pname 
STORE rank TO mrank 
STORE educat TO meducat 


* Retrieve the appropriate rank name and science name 


SELECT SECONDARY 
USE ranks INDEX ranks 


FIND &mrank 
tiesp.serno, 1,1) = “1° 

STORE armyname TO rankname 
ELSE 

STORE navyname TO rankname 
ENDIF 


USE sciences INDEX sciences 
FIND &meducat 
STORE name TO mscience 


* Store the appropriate degree depending on the value of the 
*X field ‘degree’ of TEMP2 to the corresponding variable 


DO CASE 
CASE p. degree = = oa 
STORE “Bachelor” TO pdegree 
CASE p. degree = = MM 
STORE "Master " TO pdegree 
CASE p.degree = "P" 


STORE “Ph.D " TO pdegree 
OTHERWISE 

ERASE 

eecHin( / } 

@ 3,30 SAY “ILLEGAL DEGREE" 

@ 5,27 SAY p.degreet+' “+p.name 


STORE O TO del 
DO WHILE del < 50 
STORE del+1 TO del 
ENDDO WHILE 
ENDCASE 


* Print the main line of the output 


ip limeeceunt > 53 


Rowe 
STORE OQ TO linecount 
ENDIF 
? ee ! :" 
ee a 
ie “!'"+STR(seqnum, 3) 
2o “i “+pname 
Pe? “* ! “trankname 
ade * ~tmscience 
22" | “+pdegree+” |" 


STORE seqnum+l TO Seqnum 
STORE linecount+2 TO linecount 


segs: 


STORE " “ TO pname 


STORE ° “ TO rankname 

SD LORR " TO mscience 
STORE " " TO meducat 

STORE " " TO pdegree 

STORE " “ TO mrank 

SELECT PRIMARY 

SKIP 


ENDDO WHILE .NOT. EOF 

DO monitr 

* Delete the temporary files TEMP1 and TEMP2 
DELETE FILE temp1. DBF 


DELETE FILE tempz. DBF 
RETURN 
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| DEQE | NAME 


me mee ee ene eee ne ee eee eee ae ae es i Se es eS es ss S sc ee Os ee eS ~~ ae ese ee Ses es=~ ese es Se ee 


Sy Sy hy, Sy $y Sy Sy by $y $y Sy $y Sy 
8) a) QO QO 8. 2) O '®) O 2 Q ie) 
ro rH $4 $4 S44 rH rd $y rH $y oH a4 — A aH —i hy aa rr fer i 
it) 19) @ 1D) tb) q) ® tb) tb) 0) q it) @ tb tb) @ Y VY tb) AB) q) 
AG Le p so ae) Le AG. 4 ae so) a Le Le. il Ge Le AS Ae, se) AG Ae se 4 
@) O WY) WV) W) O Q) “) €) WY) : O t) O i, Q) e) v) e) t) 9) 1 
G w w o an G w 4) wo os Ae wo w a a wo sa CG 8 od an 48 
a8} a8} = Ps, = aa) [XQ =; a) >> p, ae) aa) on} a8} eG) mM >> — OQ >> SD 
nO 
GQ 

AG: LG: A 
O O $4 it) U7 Py @ tb) 
$y Py $y Y Pr» 0 & ” ia) 0 0) > 
w AsTt) w tD) ‘On ao) am) G q O A, CG Cc ‘on 
@ O it) W) GQ QO G C q@ So! ‘4 w Pry q) @ O 
WY) ro WY) O ot ro 1D) @ To 0? 4 $y $y To ro tb) 
a O ” a) id op O =| & 9) 0 Py o i ey 0 O 3) 0 C u) Ww) 
aa s4 CQ or & GC hy tb) @ G ap) ep) & QO ”) ¢) ep. eg $4 rd S oe 

O O {x] O ao no OQ @ S oc ‘ O ) © O 
$y tb) A, $y By 1D) w oG Or Ay O le o & ” QO, AQ, tb) a O, Ay 
@ 4 oy @ O O a) GC CS wo & G4 4 1D) @) > & & 4 ae) 8) 4) 
O, 1) tD) O, O tb) tb) © w @ OQ ¢ w O AS. ae, QO QO tb) Y tb) tb) 
© >> K-< © fx] = = Sy >> = O) tH = 2) © A, 'S) © >a Zz = Ket 
E+ EX Ex EH = > EH EH E+ E> E+ E> FH © c) Ex EH E> E> fa 
A, — A, A, =f << = =| A, A, A, A, oe) A, Em ES A, A, —] ~] : @ 
'S) ma (©) \@) >> — 4 © , @) © Za <9) as = © 'S) sam — CQ © 
= A, =] AY ~] ae — a4 fx] << = A, ra >a >> ne 4 © a [x] (x] < 
>> > > 8) io ®. 8) O 
uy “ $4 aan) $y i) To D) o _ Cc 
$y =) O $y =| $4 W) > & =| $4 > @ = ae) & of G C = = 
8) 4 i ow ‘@) 10) 8) ow 4 iA Q) @ 8 QO 1) 0) QO $y @ 1D) ‘4 $y 
Oo: 7 Pus = Ee oe, ee Ay age) = = aa (an) aie I Q, an ae) mM ay an aa) 

Ww) c ” 

QO w Py ¢ a 0 Sy a eS QO 0 
Ww) e To a) a Q $y ave & 7) O a) S N O a O rf A 
z $4 O $y W) @ = it) O 1 ®, W) Be @ ‘on & @ ae) = p W) eS 

a $4 = w QO W) it) e $4 & 08) =! S O O, $4 = $4 4) 0) 
©} 4 ‘@) sy 1-4 $y o $y $y 8) QO 1) 8) 8] id ‘@) 0 O 1) QO O 4G) 
<< << faa) oa) © ©) [x, fx, fx, es) C5 ap Ne Ne ae ae el = a out S S 


—— =e wee ew ee ee iw ee ww wee see ee we i we we i i ee we i ewe ee ee se SES eS ss ees se Ss Sess es es 


iO Gee) aS 1c) CO)6| U6. UC UO a OY Oo) SO. OSes Oo OU a re SO eS 
a es es ee , .  \ OE 0 SO PO 


5 


Sy ty 
O 0 
| $y $y $y hy gy hy $y ~ $y $, $y 
@ @ 1) th) 1) oO th) @ tb) tb) q) @ 
LG ae ) ae) ae) “4 a) at (aa ae Le, xa) ao am) 
oO t? ” 7) ” W 79] : 7) 0) uw 71 ” 
a) 8) a) 8) 8) o cS ie) ue: og a) 8) 8) 8) 
mM = > >> >> >> , F&F A, > faa} = > = 
go 
bot) bel) au by 7 
O ¢ q G ¢ Ta ea 
$y ort ” ‘A ‘A er re = = 
3 Ae. O UO oo @ “iy a 
zs m CT a | ml — mi @ a p 
O ed 413 i ‘do ted e ” ” 
a = = = ” ” 3 3 ” 9) ‘A > >» ” 
ae) faa) ey) faa} q a} mo 4 c ¢ bn 606M op) S 
of c O 0 O O CG 0 
ce Oy O Ay Ay Ay y y AQ, Oo, fx OD, O, Qy 
O ‘4 $y To i) 8) ‘dood 8) a) & =| o 
$y & @ A 1) tb) SG AG tb) a 4 O O @ 
< ep) a dp) << =< nm WM = = fx] © UO = 
oS F '@) Es — © Ee Ot) ie) =) @) E+ - Ee 
be —] EH —] © Es yy Ee < << eH A, A, A, 
pea rt al rc ) —] 4 a > =a] @) O O 
i [x] —] '@) fx] '@) = DD a = faa) = Q =) 
, 
c 
$y a @ s | Q, 
“b) O Ae. oO =| ) ‘F S re = $y S i = 
O 1) O To © o oO tb} mo ‘ Gg 08 GC O 
ae ee) faa} ; — Qu. mo wa << co O a) an 4 
” $y 
” $y ” $y Te) tb) hy C 
re re 0) 8] 0) cy ” hy 2) wo >» O ” 
a 7) =| OH +p S Ae “ib ” ‘S S) y) ” 0) 
” ie) re A, ) qd wy ”) o $y $y ao ae 
r- cq 48) 48) O -) ‘A O O Dy D) re w qt 
© © A, ae A, Co fe oar dp) f- HE, = NI 


aos (IO eet 2 © Ga = a & wT DH CO 
NN NNN NN NN CO SLUMDLUlUCUMNSOLUCNDDSUCNYDCOCMO 


~~ ewe Se we we we i ew ee we we iw se ee ee ee OOS ee eS eee ee ee le ee 


isi6 


Sel eea nam Reports 


This program prints all the officers who speak 
foreign languages. The list is sorted by language and name 
and, includes the language spoken as a heading, name, rank, 
and unit. 

The structure of the program is as follows: 

a. The necessary memory variables are initialized. 

b. A list of all the languages is displayed on the 
screen and the user is prompted to select a particular, or 
all the languages to be printed. 

c. Depending on the user's choice the program creates 
a copy fo the MASTER file to temporary file TEMP which includes 
all the officers who speak any or a particular language. If 
the user enters a wrong selection, the program goes back to 
step (b). 

dad. The main heading of the output is printed. 

e. If the user decides to print all the languages, 
then, the program sorts the created copy on ascending keys 
-LoOmvang * and "name' into file TEMP2, and a WHILE loop is 
executed to make the process which includes: 

(1) The file TEMP2 is read sequentially. The 
field 'forlag' is compared to the variable ‘lang! which con- 
tains the value of the field 'forlag' of the previous record. 
If it is different, this means that we have a new language, 


whose name is printed as a heading. 


oy 


(2) The program retrieves the rank and unit 
names, from the corresponding files, and prints the main 
line of the output. 

(3) The process is continued with the next 
record. 

f.- If the user decides to print a particular lan- 
guage, the corresponding language heading is printed, and 
the previously created copy is sorted by name, into TEMP1. 

g. Then a WHILE loop is executed which performs 
the same things as above, except the comparison, because 
now we have only one language. 

h. At the end all the temporary files are deleted, 
the monitor file is updated, and the program returns to 
SUBMENU2. 

The listing and output of the program are shown in 


the next pages. 


deste: 


cK KKK PROGRAM REPORTS **kkKKX 


x This program prints the officers who speak a particular 
* or any foreign language 


ERASE 
SELECT PRIMARY 


x [Initialize memory variables 


STORE 4 TO vert 


Slows 2 ~ TO line 

MAOH == S=========" TO linel 
STORE " " TO lang 

STORE “ °°" TO mlang 

STORE " “ TO pname 
STORE “ " TO mrank 

SORE, ~ alo mmurnat 

SOnRn ” " TO prank 

STORE iO pura tc 


STORE O TO linecount 
STORE 1 TO seqnum 


xX Display on the screen the list of languages and ask the 
xX user to make his choice 


STORE T TO wrong 
DO WHILE wrong 


ERASE 

@ 1,30 SAY "LANGUAGES LIST" 
GOS en aaa sooo SSS SSS" 
GSO) oAY OO. ALL” 


USE forlangs 
DO WHILE .NOT. EOF 
@ vert,30 SAY code+line+name 
STORE vert+1 TO vert 
Shee 
ENDDO WHILE 
@ vert+2,27 SAY “Make your selection’ 
@ vert+4,27 SAY "Enter two blanks to exit’ 
STORE 4 TO vert 
SIORE ~ TO choice 
ACCEPT TO choice 
IF choice = 
Ue 
RETURN 
ENDIF 


x Create the appropriate copy according to the user’s 
*k selection 


USE master 
Pe cheice = “OO” 
COPY TO a hens FIELD name, rank, unit, forlang; 


ins.9 


FOR forlangaa. iam 
STORE F TO wrong 
ELSOE 
IF VAL(choice) >= 01 .AND. VAL(choice) <= 16 
COPY TO temp FIELD name, rank,unit FOR forlang = choice 
STORE F TO wrong 
Hood 


k If the user enters a wrong number, display an error 
*K message and give him another chance 


ERASE 
@ 9,18 SAY choice+t+” is an illegal choice, try again" 
= Chives) 
STORE info del 
DO WHILE del < 30 
STORE del+i TO del 
ENDDO WHILE 
ENDIF 
ENDIF 
ENDDO WHILE wrong 


* Print the main heading 


BRRASE 

SET PRINT ON 

iy : "+DATE( ) 

2 SS ‘ 

a LIST OF OFFICERS WHO SPEAK FOREIGN LANGUAGES" 

ve === === ===> _ __ | = Se ee 

“? 

? 

ie ORCC} COOK COCO KAA OK KK " 
& “XSEQE | NAME | RANK ; ON IY *«G 
2 ROR} OC COCK” CCRORO AOROKKKK KK " 


STORE linecount+9 TO linecount 


* Do the appropriate process depending on the 
* user’s request 


IF ‘echerce = sor 


* Sort the created copy on ascending keys 
* ’forlang’ and ’name’ 


USE temp 

SORT ON name TO tempi 
USE templ 

SORT ON forlang TO temp2 
USE temp2 

DO WHILE .NOT. EOF 


"x If a new code for the field ’forlang’ is encountered 
* print the new language heading 
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IF forlang <> lang 

SlORE forlang TO lang 
STORE forlang TO mlang 
STORE 1 TO seqnum 
© 
2 
STORE linecount+2 TO linecount 
te Slinecounc > a3 

EJECT 

STORE O TO linecount 
ENDIF 
SELECT SECONDARY 
USE forlangs INDEX forlangs 
FIND &mlang 
¢> te 


“+linel 
& - “+name 
rg : “+]linel 
STORE linecount+3 TO linecount 
ENDIF 


x Store current field values to memory variables 


SEbECl PREMARY 

STORE name TO pname 
STORE rank TO mrank 
SlOne Unit Be munit 


* Retrieve rank and unit names 


SELECT SECONDARY 
USE ranks INDEX ranks 
FIND &mrank 
Mie semunit,i <i) = “1” 
STORE armyname TO prank 
SGS5 
STORE navyname TO prank 
ENDIF 
USE units INDEA units 
FIND &munit 
STORE title TO punit 


* Print the main line 


IF linecount > 53 


Renee | 
STORE O TO linecount 
ENDIF 
a ion ! j 
‘oe ee 
4 "''"+STR(seqnum, 3) 
at lan “+pname 
rae eo! “+prank 
et cae “+punitt+ Ne 
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STORE seaqnum+i1 TO seqnum 
STORE linecount+2 TO linecount 


x Continue with the next record 


SELECT PRIMARY 
SKIP 
ENDDO WHILE 
ELSE 


* Handle the case where the user has requested 
* a list of those officers who speak a 
xX particular language 


SELECT SECONDARY 
USE forlangs INDEX forlangs 
FIND &choice 


Ze 
° 
i “+linel 
ig “+name 
te “"+]linel 


STORE linecount+5 TO linecount 


* Sort the created copy in ascending order 
KX with key ’name’ 


SELECT PREMARY 

USE temp 

SORT ON name TO templ1 
USE templ 

DO WHILE .NOT. EOF 


* Store current field values to memory variables 


STORE name TO pname 
STORE rank TO mrank 
STORE unit TO munit 


* Get the rank and unit names 


SELECT SECONDARY 
USE ranks INDEX ranks 
FIND &mrank 
LP _ SC Cpatnee., (2) = sae 
STORE armyname TO prank 
pion 
STORE navyname TO prank 
ENDIF 
USE units INDEX units 
FIND &munit 
STORE tive Os puna 


* Print the main line 
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IF linecount > 53 
RJECT 
STORE O TO linecount 
ENDIF 
& ae 
Ce. aa 
2 ot’ +STR(sequunm, 3} 
eo? "“! "“tname 
oe eae | “+prank 
ici) os \°.U ot. Jaa 
STORE seqnum+i TO seqnum 
STORE linecount+2 TO linecount 


* Proceed with the next record 


SELECT PRIMARY 
DIK EP 
ENDDO WHILE 
ENDIF 


* Delete the temporary files 


me choice = *@0" 
DELETE FILE temp. DBF 
DELETE FILE tempi. DBF 
DELETE FILE temp2. DBF 
STD 
DELETE FILE temp. DBF 
DELETE FILE tempi. DBF 
ENDIF 


* Update MONITOR file and return 


DO monitr 
RETURN 


143 


12/017 35 


OOK OCA GCICKAACKACOOKIACICKOKK KR ACKIAAOK ARK K KKK 
KSEQE | NAME i: RANK; Neel * 
COOK ACK IORI CICK IORI AAR K ARK K KKK 


English 
3 i | Allen David E | Glesk 3 aj@relmeatials: Yala’ 7 
| re | Borrias Nick L : LT | LST Rhodes 3 
! 3 | Cook Ryan K | MAJ | Armour Bn 3 
| + | Dalton John h | MAJ | 4th Inf Bn | 
| 5 | Farmer Peter J | 1LT | oth Inf Bn | 
! 6 | Ford Roger A : CPT | Sup/Trans Bn , 
| 7 | Fox Don B | LTJG | LST Rhodes | 
! 8 3 Ganos Jim A | LT : DD Miaoulis ! 
| g | Garret Rex D | Gledk | signals Bn | 
| 6, : Gorby Glen G 3 Clee : Engineers Bn : 
| ee | Gorman Bruce L | LTJG : Lot Aree | 
| TZ | Jackson Peter M 3 Cra } Sogelmeliair inka | 
| 3 | Kaan Dave J | MG 3 ist Inf Div | 
| 14 : Karras Mike L | LTC | Ist Inf Div | 
| 15 : Keen Robt N | COL | 1S Ce deena Any | 
| 16 | Larson Roger K | Cia 3 Armour Bn | 
| A, | Manos John K | CRT. 3 Ist Arty Bn | 
| 18 | Newton John J | UE SE | Engineers Bn | 
| 19 | Onasis George E | LTJG | DD kanaris | 
! 20 ! Owens Bane Ib ! ie ! oup/Trans Bn | 
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La 


Ben 


Roberts 


g 


M 
Mario L 


Kamenos Joe 
Rivera 


1 
@ 


Japanese 


Signals Bn 


LTJG 
MAJ 


Ie 
L 


om 
Tom 


Alkamo 
GUPENielk< 


1 
2 


Chinese 


Ciel 


Portuguese 


Sites en 


ee 


4th tad oon 


Clady 


Ralph D 


Watson 


cmc cc ee ee ie oe 
— oe ee ee ee ee ee ee eee oe 


Russian 


co) 
ey 
w 
& " 
& i 
O & 
S (D) 
Le 
a 
> 
0) Q 
Za = 
(Q aan 
a Q 
© ee) 
oO) — 
fx] a 
= = 
or 4 
ee Eo 
cy 
O (D) 
‘ O 
7) c 
08 b) 
O Q, 
© ep 
-—H WN 


Bulgarian 


DD Miaoulis 
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Korean 


DD Themis 


Ben 


Danish 


ist Arty Bn 


ieee © 


Rolf G 


Ullman 


iL 


ee ee ee ee eee ee eee 
— ee eee eee eee 


swedish 


orem: Bn 
' Armour Bn 


1LT 
Cle) 


John K 
Tom L 


Felton 
Lopez 


1 
z 


Dutch 


Signals Bn 


Gleet: 
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6. Program Report6 


This program lists all the officers in alphabetical 
order, including name, rank, marital status, and number of 
children. 

The program has the following structure: 

a. The appropriate memory variables are initialized 
and the main titles are printed. 

b. We use two temporary files, TEMP1 and TEMP2. The 
first one is used for creating a copy from MASTER file, and 
which includes, serial number, name, rank, marital status, 
and number of children, i.e. only the necessary information 
for creating the report. Then this file is sorted by name 
into the file TEMP2. 

c. Then the main process of the program is executed 
within a WHILE loop with the following functions: 

(1) The current field values are stored to the 
memory variables. 

(2) The appropriate rank name is retrieved from 
RANKS file and marital status is stored to the corresponding 
variable, depending on the value of the field 'marstat', of 
the file TEMP2. 

(3) Then the program prints the main line and 
proceeds with the next record. 

d. At the end of the WHILE loop the program deletes 
the files TEMP1 and TEMP2, and then returns to the calling 


program. 
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The listing and output of the program are shown in 


the next pages. 
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KKKKKKKK PROGRAM REPORT6 *KKKKKxKxX 


x This program lists all the officers in alphabetical order 
KX including name, rank, marital status, and number of children 


ERASE 
x Initialize memory variables 


STORE "LIST OF OFFICERS INCLUDING MARITAL STATUS” TO title 
STORE, "ss22= S282 225 5 3333 3 SSS Sa a a a ee = el ee 
STORE 1 TO seqnum 

STORE O TO linecount 


SI@RE “ TO pname 
Shen. " TO pmarstat 
STORE ~ ~ TO Vperaidren 

> LOR ls. " TO prank 

STORE “ "“ TO mrank 


* Print the list heading 


SET PRINT ON 


# 


? le “+DATE( ) 


oD 

EE "“+title 

gd - “+underline 
oD 
o> 


et cee ee ee es ee ee ee es es ee es es es es es cs es cc ee ee ee ee ee ee ee 


ra "| DEQHF | NAME | RANK ; MARITAL” 
oo. “SAU SS Chea EN 


6% 
2 te ee ee ee 
° 
eo " s 
pn ENR cere a 


STORE linecount+9 TO linecount 


* Copy MASTER file to temporary file TEMP1 including only the 
* necessary fields, and sort this file by name into TEMP2 


SELECT PRIMARY 


USE master 

COPY TO templ FIELD serno, name, rank, marstat, children 
USE tempi 

SORT ON name TO temp2 ASCENDING 

USE temp2 


DO WHILE .NOT. EOF 
* Store current field values to memory variables 


STORE name TO pname 
STORE rank TO mrank 
STORE marstat TO pmarstat 


L510 


STORE children TO pchildren 


Get the appropriate rank name 


SELECT SECONDARY 
USE ranks INDEX ranks 


FIND &mrank 
mr S(p.sermo,1,1) = “1" 
STORE armyname TO prank 
ELSE 
STORE navyname TO prank 
ENDIF 


otore the appropriate marital status name 


DO CASE 
CASE) p.marstat = “M" 
STORE "Married " TO pmarstat 
GASsE p.marstat = “U" 
STORE “Unmarried” TO pmarstat 
CAGE p.marstat = “D" 
STORE “Divorced "“ TO pmarstat 
OTHERWISE 
ERASE 
? CHR(7) 
@ 10,30 SAY “ILLEGAL MARITAL STATUS" 
@ 12,30 SAY p.marstatt" *kx"+p. name 
STORE 1 TO del 
DO WHILE del < 50 
STORE del+1 TO del 
ENDDO 
ENDCASE 


Print the main line of the list 


itelamecount > 53 


HOECT 
sr@he O TO linecount 
ENDIF 
is a, 
tats 
? "'|"4+5TR(seqnun, 3) 
oe "+poname 
29? “ | “+prank 
pa ee “+pmarstat 
anes “+pchildren+’ a 


STORE seqnum+l TO seqnum 
STORE linecount+2 TO linecount 


SLORE ° " TO pname 
SLORH ” “ TO pmarstat 
oTORE " " TO prank 

SIORE ~ TO pehildren 

STORE " " TO mrank 


SELECT PRIMARY 


i 


SKIP 
ENDDO WHILE .NOT. EOF 
DO monitr 


* Delete the temporary files TEMP1 and TEMP2 
DELETE FILE templ. DBF 


DELETE FILE temp2. DBF 
RETURN 
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This program calculates the service time in the cur- 
rent unit, as well as the total service time for each officer. 
Pre eCurput of the program is directed to the printer only, 
while appropriate messages are displayed on the screen to 
inform the user of what is going on at the various steps of 
the program. 

[ine structure of the program is as foilows: 

a. The necessary memory variables are initialized 
and the headlines are printed. 

b. The MASTER file is copied to the file TEMP 
including only the fields 'name', 'serentry', and 'reptdate'. 
Then this file is sorted by name to the file TEMP1, which is 
used for the main process. 

c. The program performs a WHILE loop to do the 
following: 

(Ey Wine order ytorde the calculations the proper 
way, we have to transform the format of the dates from 
MM/DD/YY to YY/MM/DD. 

(2) We calculate the service time in current 
unit as follows: The day of the report date, is compared 
to the day of the day of the current date. If it is greater, 
we add 30 days to the day of the current date, and subtract 
1 from the month of the current date, otherwise they remain 
unchanged. Then the month of report is compared to the 


month of the current date, either unchanged or reduced by 1 


eo 


as mentioned before. If it 1S greater we add 12 to the month 
of the current date and subtract 1 from the yeaxm of the cur= 
rent date, otherwise remain unchanged. This way we make 

sure that the subtraction is possible. We do the operation 
storing the number of years, months, and days to memory 
variables. 

(3) With the same logic we calculate the total 
service time. 

(4) The program prints the main line, reinitial- 
izes the proper memory variables to accept the new values, 
and continues with the next record. 

d. At the end the MONITOR file is updated, the 
temporary files are deleted, and the program returns. 
The listing and output of the program are shown in 


the next pages. 


IE Sy 


KKKKAK KK PROGRAM REPORT? **kkkKkxkx 


* This program prints all the officers with their service 
* time in the current unit and the total service time 


ERASE 


SET CONSOLE OFF 
SET PRINT ON 


* Initialize memory variables 


SORE ~ ' TO pname 

STORE " ' TO mdate 

SOs ' TO mserentry 

STORE ” ' TO mreptdate 

Slene. biot OF OFFICERS INCLUDING SERVICE TIME" TO titlel 
STORE “IN CURRENT UNIT AND TOTAL SERVICE TIME" TO title2 
el a ee a a rr TO line3 
STORE "x TOUR VECHed UM NONI: “Orta t Les 
STORE "“;TOTAL SERVICE TIME x" TO titled 

STORE "“xXSEQ#} NAME ioshestententeeetestennesetententen “ TO midlinel 
STORE “-------  icoatentonieatestestententententetentententententententen x" TO midline2 

SLlORm "x i;YEARS MONTHS DAYS” TO titled 
STORE " |YEARS MONTHS DAYS*" TO titleé 

STORE  ° >KoK>KOKAKOK KOKI OK AKO OKI IKK KKK KOK KKK KKKKEKK' ©6©rTTO.[UCUdLJ nel 
STORE  ' KoK>K-K KKK AKO OK OK OK KOK OK OK OK OKKAOKKKKKK'' «€6©TO 6Ool ine? 

STORE O TO linecount 

STORE 1 TO seqnum 

sien O TO day 

STORE O TO days 

plore O TOsmenth 

STORE O TO months 

STORE O TO year 

STORE O TO years 

pooner OO TO dayl 

STORE O TO monthi 

STORE O TO month2 

STORE O TO yearl 

xX Print main headings 


ie 


@ 9,19 SAY "Now the headlines are being printed” 


atta th “+DATEC ) 
2 

PP ee 
& +titlel 

& ce lk Une: 

Es saree Le 

fy “+line3 

cP 


a) 


? Llinel+line2 
° title3+titled 


MSY, 


? midlinel+midline2 

? titled+title6 

? linel+line2 

STORE linecount+13 TO linecount 
ERASE 


x Create a copy of the MASTER file and sort it by name 


@ 9,17 SAY "Now wait a little, the MASTER file is being sorted” 
SELECT PRIMARY 

USE master 

COPY TO temp FIELD name,serentry, reptdate 

USE temp 

SORT ON name TO templ 

USE templ 

ERASE 

@ 9,21 SAY "Report? is currently being printed" 
DO WHILE .NOT. EOF 


* Store current field values in temporary variables 
* so that the report date and service entry are 

* transformed from the form MM/DD/YY to the form 

* YY/MM/DD 


STORE name TO pname 

STORE $(reptdate,5,2)+$(reptdate,1,2)+$( reptdate, 3,2); 
TO mreptdate 

SIORE $(serentry, 5, 2)+$(serentry, |, 2) +S (seremury, oe 
TO mserentry 

STORE $(DATE(),7,2)+$(DATE(),1,2)+$(DATE(),4,2) TO mdate 


* Calculate the service time in current unit 


IF VAL($(mreptdate,5,2)) > VAL($(mdate, 5,2) ) 
STORE VAL($(mdate,5,2)) + 30 TO dayl 
STORE VAL($(mdate,3,2)) - 1 TO monthi 

ELOE 
STORE VAL($(mdate,5,2)) TO dayl 
STORE VAL($(mdate,3,2)) TO monthil 

ENDIF 

IF VAL($(mreptdate,3,2)) > monthi 
STORE monthi + 12 TO month2 
STORE VAL($(mdate,1,2)) - 1 TO yearl 

Bao 
STORE monthi1 TO month2 
STORE VAL($(mdate,1,2)) TO yearl 

ENDIF 

STORE yeari - VAL($(mreptdate,1,2)) TO years 

STORE month2 - VAL($(mreptdate,3,2)) TO months 

STORE dayl - VAL($(mreptdate,5,2)) TO days 


Kk Calculate the total service time 


IF VAL( $(mserentry,5,2)) > VAL($(mdate, 5,2)) 
160 


STORE VAL($(mdate,5,2)) + 30 TO dayl 

STORE VAL($(mdate,3,2)) - 1 TO monthi 
BRLSE 

STORE VAL($(mdate,5,2)) TO dayl 

STORE VAL($(mdate,3,2)) TO monthl 
ENDIF 
IF VAL($(mserentry,3,2)) > monthi 

STORE monthl + 12 TO month2 

STORE VAL($(mdate,1,2)) - 1 TO yearl 
La 

STORE monthl TO month2 

STORE VAL($(mdate,1,2)) TO yearl 
ENDIF 
STORE yearl —- VAL($(mserentry,1,2)) TO year 
STORE month2 - VAL($(mserentry,3,2)) TO month 
STORE dayl - VAL($(mserentry,5,2)) TO day 


* Print the main line 


th wanecount > 53 

RJECT 

SrOnn 50 -1O linecount 
ENDIF 


fe a 
Pena ee 
? "''+STR(seqnum, 3) 

ve ee " +name 

7 tai “4+5TR( years, 2)+" “+5TR( months, 2)+" 
°°? STR(days,2)+" 

7? STR(year,2)+" “+STR(month, 2)+" 

eo woeniaday,c)+' |" 

STORE seqnum+l1 TO seqnum 

STORE linecount+2 TO linecount 


* Reinitialize to O the memory variables that contain 
* the service times 


STORE O TO year 
Seno, [QO month 
STORE O TO day 
STORE O TO years 
STORE O TO months 
STORE O TO days 
SKIP 


ENDDO WHILE NOT. EOF 


Kk Delete the temporary files and update the MONITOR file 


BRRASE 
@ 9,20 SAY "The temporary auxiliary files are being deleted’ 
DELETE FILE temp 
Dapp rite temp] 
DOm@mon 1 te 

RHRASE 


sal 


SET CONSOLE ON 
RETURN 
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8. Program Reports 
HMmempcogqrameprinte aliethe officers an alphabetical 
order including name, rank, address, and phone #. 
The structure of the program is as follows: 
a. The necessary memory variables are initialized 
and the main heading is printed. 
b. The MASTER file is sorted into the temporary 
file TEMP in alphabetical order, with key the officer's name. 
c. The program performs the main process within a 
WHILE loop which includes: 
(1) Storing the appropriate field values to the 
corresponding memory variables. 
(2) Retrieving the appropriate rank name from 
RANKS file. 
(3) Printing the main line of the output, and 
proceeding with the next record. 
d. The temporary file TEMP is deleted, the MONITOR 
file is updated, and then the program returns. 
The listing and output of the program are shown in 


the next pages. 


G7 


KKKKKKKK PROGRAM REPORTS *kKKKKKX 


x This program prints all the officers in alphabetical 


* order including name, 


RRASE 


rank, address, and phone# 


* Initialize memory variables 


STORE "LIST OFF OFFICERS WITH THEIR ADDRESS AND PHONE#" TO title 
OTORE °"s=====SSSSSSS5 2255525225222 2-—— == = ee ee ee 
STORE 1 TO seqnum 

STORE O TO linecount 

LOR Hee TO pname 

» TORE TO rankname 

STORE " TO mrank 

STORE “ “ TO paddress 

LO Rie TO pphone 


SET PRINT ON 


* Print the heading 


pan 
STORE 


+DATE( ) 


linecount + 9 TO linecount 


SELECT PRIMARY 
USE master 


* Sort MASTER file in alphabetical order of the officer’s 


XK names into the temporary file TEMP, 


and use this file %for 


* the database processing 


SORT ON name TO temp ASCENDING 
USE temp 


DO WHILE 


.NOT. EOF 


STORE 
STORE 
STORE 
STORE 


name TO pname 

rank TO mrank 

address TO paddress 

$( phone, 1,3)+'-"+$(phone,4,4) TO pphone 


* Search RANKS file with key the field ’rank’ of the 
* officer’s record and get the appropriate rank name 


168 


sieocl SECONDARY 
USE ranks INDEX ranks 
FIND &mrank 
iPS Sp Mit, l,i) = “1” 

STORE armyname TO rankname 
ELSE 

STORE navyname TO rankname 
ENDIF 


* If the line counter exceeds 53, continue in the next page 
IF linecount > 53 

BJECT 

STORE O TO linecount 
ENDIF 


x Print the data concerning the officer 


7) ny ! I poe 
° t ! ] ! 
da | as 

Te “| '+5STR(seqnum, 3) 

°o "| “+pname 

2? "! “trankname 

°° “! “+paddress 

Po? tt | oe +pphonet ie ' te 


°° j 
STORE linecount+2 TO linecount 
STORE seqnumt+tl TO seqnum 


o TORE ' TO pname 

SLORE “ TO rankname 

STORE " " TO mrank 

STORE ° " TO paddress 
SlORRa “ TO pphone 


* Continue with the next record 

SELECT PRIMARY 

on Lr 
ENDDO WHILE .NOT. EOF 
* Delete file TEMP, update MONITOR file and return 
DELETE FILE temp. DBF 


DO monitr 
RETURN 
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*kKKKKKKK PROGRAM PRINTMON oO 


* This program prints statistical information 


* of who did what and when 


ERASE 
DO monitr 


* Initialize memory variables 


STORE "MONITORING THE USERS’ ACCESS TO THE SYSTEM" TO titlel 


STORE ern a SSS NC) I aaa. 
STORE °" DATE NAME JOB DONE" TO title2 
STORE " FILE/REP # OF REC “FO cities 

STORE “---S=5- See ee " TO line2 
STORE °=— === ae ee " TO line3 


* Print the headline 
SET PRINT ON 
o> 1¢ 


ge "+DATE() 

— 

og 0 0 8S i 

Dat "+titlel 
: “+linel 


~~) 


v4 

ae “+title2 
teas ob lip kes 

oa: “+line2 
°? lines 

SELECT PRIMARY 

USE monitor 

DO WHILE .NOT. EOF 


* Print the main line 


oe “+date 
°? “ “+tname 
ee 12 + 0b 
°° “ “+fle:rept 
°° “ “+5TR(numrec, 3) 
So) Ss 

ENDDO WHILE 

RETURN 
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D. MISCELLANEOUS OPERATIONS 

These are auxiliary operations, which have been included 
in our Database System, to provide the Commander of a Forma- 
tion and the aiding personnel, some statistical information 
about any work done in the database, as well as, some informa- 
tion concerning officers deleted from the current Unit. This 
information is recorded automatically during the whole opera- 
tion of the database, in the files MONITOR, and STATISTIC, 
respectively. These files can be printed or deleted upon 
request. In addition, we have included in this function, a 
Rereecnmamsplay,Ormerinter OUtpUtE, Of all the data concerning 
an Ofemear . 

The programs implementing this function of the system, 
with a short description of what each performs, are given 
below: 

Peeenoccam Printmon 

This program prints the MONITOR file, which keeps 
track of who does what and when. 

7 Geog ian liam tS tat 

ies program Prints the STATISTIC file, which contains 
some information about the officers who have been deleted 
Beomwemeier: previous Unit. 


ce Program Delmon 


This program deletes the data from the MONITOR file. 


Peeesognamn Delsitat 
This program deletes the data from the STATISTIC file. 


LS 


5. Program Dispscrn 


This program displays on the screen, or prints, 
depending on the user's choice, all the information included 
in an Officer s = record. 

The listings of the above programs, as well as, the 


output if any, are shown in the next pages. 
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KoORKKKKK PROGRAM PRINTMON 20k KKKx 


lane OGesramnapranitsestatistical information 
* of who did what and when 


ERASE 
DO monitr 


* Initialize memory variables 


STORE “MONITORING THE USERS’ ACCESS TO THE SYSTEM" TO titlel 


I tr a a a ee eS SS SS ES Se" TOCOCdL Ine! 
slene i DATE NAME JOB SDONE ” SiGe tikeZ 
SC ad aa PGE / Ee # OF REC" TO title3 

CCOLE (a. Sa " TO line2 
eS " TO line3 


* Print the headline 


SET PRINT ON 
a. 

oo "+DATE( ) 
a" 

Oo : 

ieee “+titlel 
aot “+linel 


*~) 


com "+bitle2 
Soe Cities 

-_ “+]ine2 
2° ines 

SELECT PRIMARY 

Usk monitor 

DO WHILE .NOT. EOF 


* Print the main line 


i “+date 
mae “+name 
iid a lh lele) 
fae "+fle:rept 
7 “ "“+5TR(numrec, 3) 
SOLE 

ENDDO WHILE 

RETURN 


I, 


kKKKAKKK PROGRAM PRINTSTAT *KKKKKKX 
* This program prints the statistic file which contains 
* some information about the officers who have been 

* deleted from their previous unit 

ERASE 


* Initialize memory variables 


STORE "STATISTIC INFORMATION OF DELETED OFFICERS" TO titlel 


STORE SS SSS SSSSSSSSSSSSS SSS SS 5555 5 = = SS SS = Se Oe en 

STORE "SER# NAME RANK UNIT REPTDATE" TO title2 
STORE: DELDATE" TO titles 

STORE '---------=<-25 eee " TO line2 
SUOMI SSeS a= “ TO lines 


* Print the headline 
SET PRINT ON 
ate 


Fa al "+DATE( ) 

a." 

PO MB eee : 

Fae “+titlel 
a “+linel 
ie 

a “+title2 

Veet t les 

or “+line2 

°°? lines 

SELECT PRIMARY 

USE statistic 

DO WHILE = NOT. HOH 


* Print the main line 


ca “+serno 
9? “  “+name 

OC? “ “+rank 

eo ah 

?? " “+reptdate 

°? “ “+tdeldate 

oK IP 


ENDDO WHILE 
DO Mmonacr 
RETURN 
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*KKKK PROGRAM DELMON **x*xx 
* This program deletes the data of the MONITOR file 


ERASE 
ween (7) 
@ 7,30 SAY “xxx WARNING *x*x" 
@ 9,17 SAY "The data of the MONITOR file will be deleted" 
eye 3) SAY PROCHED? “Y/N” 
STORE " " TO answer 
WAIT TO answer 
IF answer = "y" 
SELECT PRIMARY 
USE monitor 
GOTO TOP 
DELETE NEXT 1000 
PACK 
USE 
ERASE 
@ 9,13 SAY “If you have made a mistake...,sorry it is late’ 
@ 11,19 SAY "MONITOR file has been deleted” 
STORE 1 TO delay 
DO WHILE delay < 80 
STORE delay+i TO delay 
ENDDO WHILE 
DO monitr 
ELSE 
ERASE 
P CHER 7 ) 
@ 9,20 SAY "“*xkx* Be careful, time 1S money *x**x" 
STORE 1 TO del 
DO WHILE del < 30 
STORE del+i1 TO del 
ENDDO WHILE 
ENDIF 
RETURN 


DE, 


KRKKKKKK PROGRAM DELSTAT **kKkKKKx 
* This program deletes the statistic officers file 


ERASE 
°? CHR(7) 
@ 7,30 SAY "xk*x WARNING **x" 
@ 9,21 SAY "The STATISTIC file will be deleted" 
@ 11,31 SAY “PROCEED? Y/N" 
STORE “ " TO answer 
WAIT TO answer 
IF answer = “y" 
SELECT PRIMARY 
USE statistic 
GOTO TOP 
DELETE NEXT 1000 
PACK 
USE 
ERASE 
@ 9,17 SAY "The STATISTIC file has now been deleted” 
STORE 1 TO del 
DO WHILE del < 40 
STORE del+l TO del 
ENDDO WHILE 
DO monitr 
ELSE 
ERASE 
2 Crim 7 } 
@ 9,20 SAY "*xx Be careful, time is money *x*x" 
STORE 1 TO delay 
DO WHILE delay < 30 
STORE delay+1 TO delay 
ENDDO WHILE 
ENDIF 
RETURN 
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_OOKOKKKKK PROGRAM DISPSCRN >kbKKKKKK 


* This program displays on the screen or printer all the 
* information concerning an officer 


BRASE 


* Initialize memory variables 


STORE " 
STORE " 
STORE ° 
STORE “ 


STORE 


STORE “ 


STORE 
© TORE 


STORE " 


STORE 


STORE ° 


© TORE 


STORE © 


' TO mserno 
TO rankcode 
“ TO unitcode 
TO dutycode 
TO langcode 
TO sccode 
TO rankname 
' TO unitname 
' TO dutyname 
' TO scname 
' TO langname 
' TO degrname 
' TO marstname 


STORE O TO count 
SELECT PRIMARY 
USE master INDEX master 


STORE 


“y" TO answer 


DOWHILE answer = “y" 
ERASE 


@ 2,10 SAY "DISPLAYING OFFICERS’ 


RECORDS " 


@ 5,10 SAY “Enter serial number" GET mserno PICTURE 


mS 7,20 SAY Press 


*ENTER’ to exit” 


READ 
prescmserno;, 1,1) = 


* Update TEMPOR and MONITOR files, 


and return 


IF count <> O 
SELECT SECONDARY 


Bod 


USE tempor 
REPLACE counter WITH count 
USE 
DO monitr 
ENDIF 
RETURN 
ENDIF 
ERASE 
@ 5,10 SAY "Where do you want the display to be directed?’ 
Cele Oe AY.” ioe reen 
=] 5, /@r say ” a= printer” 


STORE " " TO answer 
WAIT TO answer 
if answer = °2”" 

SET FORMAT TO PRINT 
ENDIF 


Iie; i 


x Find the officer in MASTER file 


FIND &mserno 
1G ae: =O, 
ERASE 
eMC] slnale 7/> 
@ 10,10 SAY "This record does not exist, try again’ 
SlLORE Le fordel 
DO WHILE del < 30 
STORE del+i TO del 
ENDDO WHILE 
LOOP 
ENDIF 


* Store the codes of certain information concerning the 
* officer, to memory variables in order to be used as keys 
* for finding the real data from the appropriate files 


STORE rank TO rankcode 
STORE unit TO unitcode 
STORE duty TO dutycode 
STORE educat TO sccode 
STORE forlang TO langcode 


* Retrieve the information from the auxiliary files 


SELECT SECONDARY 
USE ranks INDEX ranks 
FIND &rankcode 
IF SCprvuniteiee. == 
STORE armyname TO rankname 
EiSe 
STORE navyname TO rankname 
ENDIF 
USE units INDEX units 
FIND &unitcode 
STORE title TO unitname 
USE duties INDEX duties 
FIND &dutycode 
STORE name TO dutyname 
USE forlangs INDEX forlangs 
FIND &langcode 
STORE name TO langname 
USE sciences INDEX sciences 
FIND &sccode 
STORE name TO scname 


* Store the appropriate name for marital status and degree 


SELECT PRIMARY 
DO CASE 
CASE degree = "B" 
STORE “Bachelor” TO degrname 


se Z 


CASE degree = "M" 
STORE "Master" TO degrname 
CASE degree = "P" 
STORE "Ph.D" TO degrname 
ENDCASE 
DOeCASE 
CASE marstat = Me 
STORE "Married" TO marstname 
CASE marstat =e 
5 TORE Unmarried” TO marstname 
CASE marstat =e 
STORE “Divorced” TO marstname 
ENDCASE 


* Display the record in the screen 


ERASE 

wet, LO 6 SAY SDISFEAYING OF FPCERS? RECORDS" 
C2 1 o Se = 2S SS = SS SS SS SS SS - = - - - ==" 
@ 5,10 SAY "SERIAL NUMBER : “+mserno 

@ 6,10 SAY “NAME : “+name 

@ 7,10 SAY “RANK > “+rankname 
@e5,10 SAY “UNIT ;  +Umi tname 

@ 9,10 SAY “SERVICE ENTRY : "“+serentry 

@ 10,10 SAY “REPORT DATE : “+reptdate 
@wii, 1Ogs4y° DUTY >: “+dutyname 

@ 12,10 SAY “EDUCATION >: “+scname 

@ 13,10 SAY “DEGREE >: “+degrname 

@ 14,10 SAY “FOREIGN LANG: “+langname 

@ 15,10 SAY "MARITAL STATUS: “+marstname 
@ 16,10 SAY “CHILDREN >: “+children 

@ 17,10 SAY “ADDRESS >: “+address 

@ 18,10 SAY “TELEPHONE # : “+phone 


STORE count+1i TO count 
SET FORMAT TO SCREEN 
Cee eros oAyY Di Seigay ANOTHER YRECORD? <(Y/N)" 
WAIT TO answer 
STORE " “ TO mserno 
ENDDO WHILE answer = “y" 
SLAG SECONDARY 
USE tempor 
REPLACE counter WITH count 
USE 
DO monitr 
RETURN 


ES 3 


V. CONCLUSIONS AND RECOMMENDATIONS 


In this thesis, we tried to develop a personnel data- 
base system model, suitable for implementation within the 
Hellenic Armed Forces Formations. This system could also 
be applied to any subdivision of the Hellenic Armed Forces 
hierarchy, with only sight modi eiecataien: 

Our main goal is to increase productivity, effective- 
ness, efficiency, accuracy, and speed, as far as personnel 
management is concerned, as well as to decrease the national 
expenditure, and release manpower for other purposes. Also, 
the Commander of a Formation will be able to make fast 
decisions concerning personnel, which is important as well. 

We used dBASE II as a database management system, since 
it is based on the relational model, which increases indepen- 
dency, and reduces redundancy. In addition, dBASE II contains 
its own programming language, which is a structured, high- 
level language, which is generally very efficient for 
manipulating data in the database. 

We have implemented the most usually needed reports, but 
a wide variety of other reports, or simple queries, could 
also be created. Also, we tried to keep the programs as 
user friendly as possible, in order to help, not hinder, the 
Operators in their job. 

The software life cycle has been taken into account 


during the program development process. Programs are easy 
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to modify to meet future improvement needs. In our appli- 
cation we have used the top-down design approach which 
serves the above goal. 

In this implementation we have included only officers, 
and a certain amount of data for each of them. Future 
improvements could include the entire military personnel, 
and we could add more information to the record of each 
individual, such as place and date of birth, medical infor- 
mation, military education, and statistical information 
concerning the units he has been assigned up to the present 
time, to name just a few. 

This thesis constitutes a good basis for the future 
computerization of personnel management, in the Hellenic 


Armed Forces Formations, as well as in subordinate units. 


SS 
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